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METHOD AND APPARATUS FOR TRANSMITTING CODED AUDIO 
SIGNAI>S THROUGH A TRANSMISSION CHANNEL 
WITH LIMI TED BANDWIDTH 

RELATED APPLICATION 
The present application relates to co-pending PCT 
application PCT/US96/ 04974, filed April 10 , 1996 , 
entitled "System For Compression and Decompression of 
5 Audio Signals For Digital Transmission" by the same 

inventor and assigned to the Assignee of the present 
application. The co-pending PCT application noted above 
is incorporated by reference in its entirety along with 
any appendices and attachments thereto. 

10 FIELD OF THE INVENTION 

The present invention relates generally to an 
apparatus and method for transmitting audio signals and 
pertains, more specifically, to an apparatus and method 
for transmitting a high quality audio signal, such as 

15 wideband speech, through a transmission channel having 

a limited bandwidth or transmission rate. 

V; BACKGROUND OF THE INVENTION 

Human speech lies in the frequency range of 
approximately 7 Hz to 10 kHz. Because traditional 
20 \ telephone systems only provide for the transmission of 

analog audio signals in the range of about 300 Hz to 
3400 Hz or a bandwidth of about 3 kHz (narrowband 
'. speech) /': certain characteristics of a speaker's voice 
are lost and the voice sounds somewhat muffled. A 
25 telephone system capable of transmitting an audio signal 
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approaching the quality of face-to-face speech requires 
a bandwidth of about 6 kHz (wideband speech) . . 

Known digital transmission systems are capable of 
transmitting wideband speech audio signals. However, in 
order to produce ah output audio signal of acceptable 
quality with a bandwidth of 6 kHz, these digital systems 
require a transmission channel with a transmission rate 
that exceeds the capacity of traditional telephone 
lines. A digital system transmits audio signals by 
coding an input audio signal into a digital signal made 
up of a sequence of binary numbers or bits , transmitting 
the digital signal through a transmission channel, and 
decoding the digital signal to produce ah output audio 
signal. During the coding process the digital signal is 
reduced or. compressed to minimize the necessary 
transmission rate of the signal. One known method for 
compressing : wideband speech is disclosed in 
Recommendation G.722 (CCITT, 1988) . A system using the 
compression method described in G.722 still requires a 
transmission rate of at least 48 kbit/s to produce 
wideband speech of an acceptable quality. 

Because the maximum transmission rate over 
traditional telephone lines is 28.8 kbit/s using the 
most advanced modem technology , alternative transmission 
channels such as satellite or fiber optics would have to 
be used with an audio transmission system employing the 
data compression method disclosed in G.722. Use of 
these alternative transmission channels is both 
expensive . and inconvenient due to their limited 
.availability. While fiber optic lines are available, 
traditional copper telephone lines now account for an 
overwhelming majority of existing lines and it is 
unlikely that this balance will change anytime in the 
near future. A digital phone system capable of 
transmitting wideband speech over existing transmission 
rate limited telephone phone lines is therefore highly 
desirable. 
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. ■ " nRvTFCTS OF THE INVENTION 
The disclosed invention has various embodiments 
that achieve one or more of the following features or 
, objects: 

5 ^ object of the present invention is to provide 

for the transmission of high quality wideband speech 
oyer existing telephone networks.. 

A further object of the present invention is to * 
provide for the transmission of high quality audio 
10 signals in the range of 20 Hz to at least 5,500 Hz over 

existing telephone networks. 

A still further object of the present invention is 
to accomplish data compression ; on wideband speech 
signals to produce a transmission rate of 28.8 kbit/ s or 
!5 less without significant loss of audio quality. 

A still further object of the present invention is 
to provide a device which allows a user to transmit and 
receive high quality wideband speech and audio over 
existing telephone networks. 
20 a still further object of the present invention is 

to provide a portable device which is convenient to use 
and allows ease of connection to existing telephone 
.'networks. 

A still further object of the present invention is 
25 to provide a device which is economical to manufacture. 

A still further object of the present invention is 
to provide easy and flexible programmability. 

SUMMARY OF THE INVENTION 
In accordance with the present invention, the 
30 disadvantages of the prior art have been overcome by 

providing a digital audio transmitter system capable of 
transmitting high quality, wideband speech over a 
transmission channel with a limited bandwidth such as a 
traditional telephone line. 
35 More particularly, the digital audio transmitter 

system of the present invention includes a coder for 
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coding an input audio signal to a digital signal having 
a transmission rate that does not exceed the maximum 
• allowable transmission rate for traditional telephone 
lines and a decoder for decoding the digital signal to 
5 provide an output audio signal with an audio bandwidth 

. of wideband speech. A coder and a decoder may be 
provided in a single device to allow two-way 
; communication between multiple devices. A device 
containing a coder and a decoder is commonly referred to 
10 as a CODEC (COder/DECoder) . V;. 

These and other objects, advantages and novel 
features of the present invention, as well as details of 
an illustrative embodiment thereof , will be more fully 
understood from the following description and from the 
" 15 drawings,-, 

: ■ ' ' BRIEF DESCRIPTION OF THE DRAWINGS 
Fig. 1 is a block diagram of a digital audio 
transmission system including a first CODEC and second 
CODEC in accordance with the present invention. 
20 Fig. 2 is a block diagram of a CODEC of Fig. 1. 

Fig. 3 is a block diagram of an audio input/output 
circuit of ' a CODEC. . 

Fig. 4 is a detailed circuit diagram of the audio 
input portion of Fig. 3. 
25 Fig. 5 is a detailed circuit diagram of the level 

LED's portion of Fig. 3. 

Fig. 6 is a detailed circuit diagram of the 
headphone amp portion of Fig. 3. 

Fig. 7 is a block diagram of a control processor of 
30 a CODEC. 

Fig. 8 is a detailed circuit diagram of the 
microprocessor portion of the control processor of Fig. 
" • 7. •/■'*. •■ .. ■• . . ■ ■' ■ . ,' •-. • . • ..' ' .'. 

Fig. 9 is a detailed circuit diagram of the memory 
. 35 portion of the control processor of Fig. 7. - 

SUBSTITUTE SHEET (RULE 26) 



WO 96/32805 



PCT/US96/0483S 



Fig. 10 is a detailed circuit: diagram of the dual 
UART portion of the control processor of Fig* 7. 

Fig. 11 is a detailed circuit diagram of the 
keypad, LCD display and interface portions of the 
control processor of Fig. 7. 

Fig. 12 is a block diagram of an encoder of a 

CODEC. ' ;7.V V' ! " 

Fig. 13 is a detailed circuit diagram of the 
; encoder digital signal processor, and memory portions of 
the encoder of Fig. 12. Fig. 14 is; ; a detailed 

circuit diagram of the clock generator portion of the 

encoder of Fig. 12. 

Fig. 15 is a detailed circuit diagram of the Reed- 
Soloman encoder and decoder portions of Figs. 12 and 16. 

Fig. 16 is a block diagram of a decoder of a CODEC. 

Fig . 17 is a detailed circuit diagram of the 
encoder digital signal processor and memory portions of 
,' • the decoder of Fig .16. 

Fig. 18 is a detailed circuit diagram of the clock 
generator portion of the decoder of Fig. 16. 

Fig. 19 is a detailed circuit diagram of the 
analog/digital converter portion of the encoder of Fig. 

12. . . . .. . . • : . ' ' ' ' . ■ ; ■ ". ' ... 

Fig. 20 is a detailed circuit diagram of the 

digital/analog converter portion of the decoder of Fig. 

16. ■ . ' ; 

'pp TATIiED nKSCRTPTIQW OF THE PREFERRED EMBODIHENT 
A digital audio transmission system 10 f as shown in 
Fig. 1/ includes a first CODEC (COder/DECoder ) 12 for 
transmitting and receiving a wideband audio signal such 
as wideband speech to and from a second CODEC 14 via a 
traditional copper telephone line 16 and telephone 
network 17. When transmitting an audio signal, the 
first CODEC 12 performs a coding process on the input 
analog audio signal which includes converting the input 
audio signal to a digital signal and compressing the 
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digital signal to a transmission rate of 28.8 kbit/s or 
less* The preferred embodiment compresses the digital 
using a modified version of the ISO /MPEG (International 
Standards Organization/Motion Picture Expert Groups) 
5 compression scheme according to ; the software routine 

disclosed in; the microfiche software appendix filed 
herewith. The coded digital signal is sent using 
standard modem technology via the telephone line 16 and 
telephone network 17 to the second CODEC 14. The second 

10 CODEC 14 performs a decoding process on the coded 

; digital signal by correcting transmission errors, 
decompressing the digital signal and reconverting it to 
produce an output analog audip signal. : 

Fig. 2 shows a CODEC 12 which includes an analog 

lis mixer 20 for receiving, amplifying ,. and mixing an input 

audio signal through a number of input lines. The input 
lines may include a MIC line 22 for receiving an analog 
audio signal from a microphone and a generic LINE 24 
input for receiving an analog audio signal from an audio 

20 playback device such as a tape deck. The voltage level 

of an input audio signal on either the MIC line 22 or 
the generic LINE 24 can be adjusted by a user of the 
CODEC 12 by adjusting the volume controls 26 and 28, 
When the analog mixer 20 is receiving an input signal 

25 through both the MIC line 22 and the generic LINE 24, 

the two signals Will be mixed or combined to produce a 
single analog signal. Audio level USD's 30 respond to 
the voltage level of a mixed audio signal to indicate 
when the voltage exceeds a desired threshold level. A 

30 more detailed description of the analog mixer 20 - and 

audio level LED's 30 appears below with respect to Figs. 
;'/3 and 4 . " ■ " \ . ■* 

The combined analog signal from the analog mixer 20 
is sent to the encoder 32 where the analog signal is 

35 \ first converted to a digital signal. The sampling rate 

used for the analog to digital conversion is preferably 
one-half the transmission rate of the signal which will 
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ultimately be transmitted to the second CODEC 14 (shown 
in Fig. 1) ... After analog to digital conversion, the 
digital signal " is then compressed using a modified 
V version of the ISO/MPEG algorithm. The ISO/MPEG 
5 compression algorithm is modified to produce a 

transmission rate of 28.8 kbit/s. This is accomplished 
by the software routine that is disclosed in the 
software appendix. 

The compressed digital signal from the encoder 32 
,10 is then sent to an error protection processor 34 where 

additional error protection data is added to the digital 
■ signal. A Reed-Solomon error protection format is used 
by the .error protection processor .34 to provide both 
burst and random error protection. The error protection 
15 -processor 34 is described below in greater detail with 
respect to Figs. 12 and 15. 

The compressed and error protected digital signal 
is then; sent to an analog modem 36 where the digital 
signal is converted back to an analog signal for 
20 transmitting. As shown in Fig. 1, this analog signal is 

sent via a standard copper telephone line 16 through a 
telephone network 17 to the second CODEC 14. The analog 
modem 36 is preferably a V.34 synchronous modem. This 
type of modem is commercially available. 
25 The analog modem 36 is also adapted to receive an 

incoming analog signal from the second CODEC 14 (or 
another ^ CODEC) and reconvert the analog signal to a 
. digital signal. This digital signal is then sent to an 
^rror correction processor 38 where error correction 
30 • according to a Reed-Soloman format is performed. 

The corrected digital signal is then sent to a 
decoder 40 where it is decompressed using the modified 
? -.■ version of the ISO/MPEG algorithm as disclosed in the 
software appendix. After, decompression the digital 
35 signal is converted to an analog audio signal. A more 

detailed description of the decoder 40 appears below 
with respect to Figs. 7, 16, 17 and 18. The analog 
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audio signal may then be perceived by a user of the 
CODEC 12 by routing the analog audio signal through a 
headphone amp 42 wherein the signal is amplified. The 
volume of the audio signal at the headphone output line 
5 44 is controlled by volume control 46, 

The CODEC 12 includes a control processor 48 for 
controlling the various functions of the CODEC 12 
according to software routines stored in memory 50. A 
more detailed description of the structure of the 
10 control processor appears below with respect to Figs. 7, 

8, 9, 10, and 11, One software routine executed by the 
control processor allows the user of the CODEC 12 to 
initiate calls and enter data such as phone numbers . 
When a call is initiated the control processor sends a 
15 signal including the phone number to be dialed to the 

analog modem 36. Data entry is accomplished via a 
keypad 52 and the entered data may be monitored by 
observation of an LCD 54 . The keypad 52 also includes 
keys for selecting various modes of operation of the 
20 CODEC 12. For example, a user may select a test mode 

wherein the control processor 48 controls the signal 
path of the output of the encoder to input of decoder to 
bypass the telephone network allows testing of 
compression and decompression algorithms and their 
25 related hardware Also stored in memory 50 is the 

compression algorithm executed by the encoder 32 and the 
decompression algorithm executed by the decoder 40. 

Additional LED's 56 are controlled by the control 
; processor 48 and may indicate to the user information 
30 such as "bit synchronization" (achieved by the decoder) 

or "power on". An external battery pack 58 is connected 
to the CODEC 12 for supplying power* 

: Fig. 3 shows a lower level block diagram of the 
analog mixer 20, audio level LED's 30 and analog 
35 ; ; headphone amp 42 as shown in Fig. 2. Figs. 4, 5 and 6 
are the detailed circuit diagrams corresponding to Fig. 
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Referring to Fig. 3 and 4, line input 210 is an 
incoming line level input signal while mic input 220 is 
the microphone level input. These signals are amplified 
by a line amp .300 and a mic . amp 302 respectively and 

- 5 . their levels are adjusted by line level control 304 and 

mic level control 306 respectively. The microphone and 
line level inputs are fed to the input mixer 308 where 
they are mixed and the resulting combined audio input 
signal 310 is developed. 

10 Referring how to Figs. 3 and 5, the audio input 

signal 310 is sent to the normal and overload signal 
detectors, 312 and 314 respectively, where their level 
is compared to a normal threshold 316 which defines a 
normal volume level and a clip threshold 318 which 

15 defines an overload volume level. When the audio input 

signal 310 is at a normal volume level a NORM LED 320 is 
lighted. When the audio input signal 310 is at an 
overload volume level a CLIP LED 322 is lighted. 

Referring now to Figs. 3 and 6, the audio input 

20 •, signal 310 is fed into the record monitor level control 

324 , where its level: is adjusted before being mixed with 
the audio output signal 336 from the digital /analog 
converter 442 (shown in Fig. 16 and 20) . The audio 
output signal 336 is fed to the local monitor level 

25 : control 326 before it is fed into the headphone mixer 

. amplifier 334. The resulting output signal from the 
headphone mixer amplifier 334 goes to a headphone output 
connector 338 on the exterior of the CODEC 12 where a 
pair of headphones may be connected. 

30 -The audio input signal 310 and audio output signal 

33 6 are fed to record mix control 328 which is operable 
by the user. The output of this control is fed to a mix. 
level control 330 (also operable by a user) : and then to 
;-. the record output amplifier 332 . The resulting output 
— 35 ^ signal of the record output amplifier 332 goes to a 

record output 340 on the exterior of the CODEC 12 . 
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. Fig. 7 ' shows a lower level block diagram of the 
: control processor 48 (shown in Fig. 2) - The encoder 406 
(referenced as number 32 in Fig. 2) is further described 
in Fig. 12 while the decoder 416 (referenced as number 
5 40 in Fig. 2) is refined in Fig. 16. Figs. 8; 9, 10, 

11, 13, 14, 15, 17 f 18, 19 and 20 are detailed circuit 
diagrams. 

Referring to Figs. 7 and 8 the microprocessor 400 
is responsible for the communication between the user, 

10 via keypad 412 and LCD display 414, and the CODEC 12 . 

The keypad 412 is used to input commands to the system 
while the LCD display 414, is used to display the 
responses of the keypad 412 commands as well as alert 
messages generated by the CODEC 12. 

15 Referring now to Figs. 7 and 9, the RAM (random 

access memory) 402 is used to hold a portion of the 
control processor control software routines. The flash 
ROM (read only memory) 404 holds the software routine 
(disclosed in the software appendix) which controls the 

20 modified ISO/MPEG compression scheme performed by 

encoder DSP 406 and the modified I SO /MPEG decompression 
scheme performed by the decoder DSP 416, as well as the 
remainder of the control processor control software 
' routines. ■"• 

25 Referring now to Figs. 7. and 10, the dual UART 

(universal asynchronous receiver/transmitter) 408 is 
used to provide asynchronous input/output for the 
control processor 48. The rear panel remote control 
port 4 09 and the rear panel RS232 port 411 are used to 

30 allow control by an external computer . This external 

control can be used in conjunction with or instead of 
the keypad 412 and/ or LCD display 414. 

Referring now to Figs.: 7 and 11, the programmable 
interval timer circuit 410 is used to interface the 

35 control processor with the keypad and LCD display. 

Referring now to Figs. 7, 8 and 13, the encoder DSP 
(digital signal processor) 434 receives a digital pulse 
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code modulated signal 430 from the analog/digital 
converter 450. The encoder DSP 434 performs the 
modified I SO /MPEG compression scheme according to. the 
software routine (described in the software appendix) 
5 stored in RAM memory 436 to produce a digital output 

418. • ••• : -. 

The A/D clock generation unit 439 is shown in Figs. 
12 and 14. The function of this circuitry is to provide 
all the necessary timing signals for the analog digital 

10 converter 450 and the encoder DSP 434. 

, The Reed-Soloman error correction encoding 
circuitry 438 is shown in Figs. 12 and 15. The function 
of this /unit is to add parity information to be used by 
the Reed-Soloman decoder 446 (also shown in Fig. 16) to 

15 repair any corrupted bits received by the Reed-Soloman 

decoder 446. The Reed-Soloman corrector 438 utilizes a 
shortened Reed-Soloman GF( 256) code which might contain; 
^or example, code blocks containing 170 eight-bit data 
words and 8 eight -bit parity words . 

20 Referring now to Figs. 7, 16 and 17, the decoder 

DSP 440 receives a digital input signal 422 from the 
modem 36 (shown in Fig. 2) . The decoder DSP . 440 
performs the modified ISO/MPEG decompression scheme 
according to the software routine (described in the 

25 software appendix) stored in RAM memory 444 to produce 

a digital output to be sent to the digital/ analog 
converter ,442. 

The D/A clock generation unit 448 is shown in Figs. 
16 and 18. The function of this circuitry is to provide 

30 all the necetssary timing signals for the digital/analog 

converter 442 and the decoder DSP 440. 

The analog/digital converter 450, showii in Figs. 12 
and 19, is used to convert the analog input signal 310 
into a PCM digital signal 430. 

35 The digital/analog converter 442, shown in Figs, 16 

- and 20 is used to convert the PCM digital signal from 
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the decoder DSP 440 into an analog audio output signal 
. ; 336- ; • • . ■•; '• 

The Reed-Soloman . error correction decoding 
circuitry 446, shown in Figs. 15 and 16/ decodes a Reed- 
5 sploman coded signal to correct errors produced during 

■transmission of the signal through the modem 36 (shown 
in Fig. 2) and telephone network. 

Another function contemplated by this invention is 
to allow real time, user operated adjustment of a number 
10 of psycho-acoustic parameters of the ISO/MPEG 

compression/decompression scheme used by the CODEC 12. 
A manner of implementing this function is described in 
applicant's application entitled "System For Adjusting 
Psycho-Acoustic Parameters In A Digital Audio Codec" 
15: , which is being filed concurrently herewith (such 

application and related Software Appendix are hereby 
incorporated by reference). \ Also, applicants 
application entitled "System For Compression And 
Decompression Of Audio Signals For Digital Transmission" 
20 and related Software Appendix which are being filed 

concurrently herewith are hereby incorporated by 
reference. ' 

This invention has been described above with 
reference to a preferred embodiment. Modifications and 
25 variations may become apparent to one skilled in the art 

upon reading and understanding this specification. It 
is intended to include all such modifications and 
alterations within the scope of the appended claims. 
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- ic" 1995. cosyrigli- Corporate Compucer Systems. Inc.. All rights reserved. 

•" •* ■■ holist " ,. 

; ■ . . : \3GCST\def .asm . . - 

; This file contains the definitions for various . structures . . 

' -The following is the minimum value for sib. The true value is -1 but' 
■' - SSt causes some computational difficulties so -120 db is used The , - 
I- mSlmSm va!ueT«-«) is about -.138 db so there is some . room left below . 
... -120 db . 

- define MINDB 6228589' . .-120 .dB in sib; s 

' ■ define MINDB '-.V ;-!20,dB in sib s . 

'. . De fine : the 10 for the watch- dog timer for bit set and bit clears. 

define WATCKJJOG .•«7.x:«SFFE4'. : M.PBD bit 7 watch dog t:«- 

; The following defines the sampling rates 

•define SAM32X .' ' ' . ' /sampling rate' cf 32 kite' V 

.. define SAM48K . ■ '1- . .-sampling rate cf .48 Wir 

•• . ' ;! : :28,8 j mfi „ . . camisk ■ •■ -2 ; - ; sampling rate of 14.4 kHz 

-•■■•SfS ««" . . '3' . ^ling rate. of 14.j ^ ; ; 

^ofin*» SAM16K '2' ;sampiing raze cf 16 KHr 

;. • ■ deftne. IK , ..'3' sampling rate-- of 24 kHz- ;, 

.'' "'"^define SAM441K '4\'; sampling rate, of 44 '.i kHz ." • 

■ . ;!1 '- 2B " 8 define SAMTYPE . •.. . ■'Z' / ■ sampling rate . to 14.4 KHz. 

;!:!2B.e • " r . 

The fallowing defines ; various parameters - • 

■ define NUMPFFT . ■ '. '1024; ; number of points used by the fft 

; The following define the types of maskers. ' ■ 
; EKDMSKR is not counted. in the nmaskers count. 

. __. rrrriMSKR ;the masker type of deleted.. 

f^rZ SSSf -r xhe masker type of non-tonal . . 

■ Hf^l toSS -2- .-the masker type of tonal 

lertnl SS^KR ' .. ^ :the last masker, in the array ■ 

• • The following define a .tonal' structure. ' ; ' . - 

• This structure occupies both, x an y mencry (X. . . ' - 

- ' . . rtMV ccT7f ■ '2' ' '- '.-length of the- structure 

< ,.SSS .S£& . ■ : ; ; ^^:^\^ ^/ :. 

■ - SSSS. • ; SO V- :.the .m a ™nu^er cf. tor. a ls, ; 

,. • , The. following def i^^c.^fo J^J^^^^l?^ ^ 
..- .v. ! ^iffea'and Fi^U^S??!* word/ MUSICAK uses 12 l's as .. 
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the sync word. 



define SYNC 
define SYNCMSK 
define NSYNC 



'SOOOfff > 
'SOOOf ff ' 
'12' - 



■ • ; sync pattern left . justifed 
; mask high order from get value 
,*len sync word thdr bits 0-11) 

.' For framing purposes by the . decoder and unpadded frames. 24 bits are used: .... 

! its iSi" £t» Sf tS 1st 4 bics : of >ran«,header.of . 

- the constant 'C'.(HOO);. • ■ .. . 

I skip over the next 4 bits of the frame header that are reserved; 

the next f ! r biS ^01) r o"the frame. header that represent sampling, rate : 
'01* « 48 K sampling rate 

J ' / '10' «' 32 K sampling rate ; ; ; 

;!!!28.B; ^ B 24 K sampling rate (14:4 K rate) :. 

*00' -.16 K sampling rate (14. 4, K rate) / 
[. 24.. K sampling rate 

\\ ;, oo' « 16 K sampling rate . . ; , ; . . 

;!!!28.8 _ ronstanc 0 bits of the frame header. 

! The |S^S?-i^^S- right justified framing sync pattern is used 

to isolate the sync. word. 

'Sfffc04' ;sync pattern for 4 8 K sampling 

'Sfffc08' ;sync pattern for 32 K sampling. 

'SfffcOC ;sync pattern- for 24 K sampling. 

'$fffc00' ; sync pattern - 14.4 : K sampling 

'SfffcOO' . ; sync pattern - 14.4 K sampling 

'SfffcOO' ; sync pattern for 16 K sampling 

. 24 • ". ; len sync word (hdr bits 0-23) 

'SffffOf ;mask reflect framing sync ptn 

'SOOOfff ;mask high order from getvalue 



; ! i 128.8 



define FRAM£SYNC_4 8K 
define FRAMESYNC_32K 



: ! ! !28.8 



define FRAMESYNC_ 2 4 K 

de f ine FRAMESYNC.2 4 K 

define FRAMESYNC_16K 

define FRAMES YNC_16K 

def ine FRAMENSYNC 

define FRAMESYNCMSK 

define GETSYNCMSK 



; The following define the number of bits -sed by the- fixed part of the. . 
MUSI CAM frame... 

■ . define. NSYST • • Z '20' length of the system info header 

; def ine the use of protection check sum or not 



def ine CRC JIO JPROTECT ; . ' 0 
define CRC.PROTECT , 1, 



■define NCRCBITS 
define MASKCRC 



' 16' , 
'SOOffff ' 



• def ine'. CRCJ3UM_BIT_OFFSET '16' ' . ; 

define CRC_VALUE ■ J ^ll!^ 500 ! lfi i 
define CRC~STORED_B IT_OFESET . 16 



-protection does not apply 
^protection applies 

; 16. bit check sum 

;mask high order from getvalue 

; ISthbit offset start at. bit rate 
; . to calculate checksum 

checksum divisor ■ . . 

; bit offset to store checksum 
following the 32 bit header 



define the 'number of. bits to be. in ^ 

'for the header and the checksum itself, 
for one channel. in mono. 
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.define, 
define 



CaC_3:TS A 

crc b:ts~b 



•32' 
•142' 



incl bits from her 4 checksum 
incl bits per used channel : 
BALs - 88, SBits- 54 



code for the new ISO frame header (these are" coded as left justified) 



define 
define 
define 
define. 



SYSTHDR 

systhdr" 
systhdr" 
systhdr" 



1 NO PROT 

i~no~prot low 
Vprotect" • 

"l" PROTECT LOW 



•$00000d' 
•S00OOC5' 
'S00O00C 
'$000004' 



biCS" : 12-15: 
bits 12-15: 
bits- 12-15: 
bits 12-15: 



11C1 
.0101 
1100 
0100 



(4 .bits) 
(4 bits) 
(4 bits) 
(4 "bits)'. 



define SYSTHDR_2 



'$000000' 



hdr bits 22-23: 



00 



(2 bits) 



; use Copyright bit. to indicate to decoder if CCS compression applies :. 
]' bit 26: 0 means NO CCS compression 

1 means audio coded with CCS compression 



define 
define 

define 
define 
define 
define 
define 
define 



SYSTHDR 3 NO CCS COMPRESS 
SYSTHDR~3~CCS COMPRESS . 



'$000000' 
•$000,008*. 



bits 28-31:0000 K? 
bits 28-31:1000 iA) 



NSYSTKDR 1'- 

NSYSTKDR~2 

NSYSTHDR~3 

MASKSYSTKDR T 

MASKSYSTHDR~2 

MASKSYSTHDR~3 



'4' 
'2' 
'4' 

• sooooof ' 

' $000003' 

' sooooof 



; 4 bits for header field 1 
; 2 bits for header field 2; 
; 4 bits for header field 3 
.mask high order from get value 
.-mask high. order from getvalue 
.-mask high order from getvalue 



codes for the type. of framing 12 bits in bits 24-2S of frame header) 



define, 
define 
define 
define 

define 
define 



FULL STEREO 
JOINT STEREO 
DUAL " 
MONO 

NFRAMETYPE 
MASKFRAMETYPE 



'$000000' 
•$000001' 
'$000002' 
'$000003' 



'S000003' 



,;• 00 stereo- left & right channels 
; 01 stereo intensity- 2 channels 
; 10 dual-2 channels . 
; 11 mono-1 channel only. 

; 2 bits for type of frame field 
,mask high order from getvalue 



bit flags .for controlling the type of, framing, during t>it allocation & coding 



define STEREO vs_MONO 

define LEFT_vs RIGHT T 

define JOINT FRAMING • 

define JOINT^at.FDLL 

define JOINT_at_SBJBOUND 

define FIRSTJTIME ; . 

define MASKING_PASS 

define HEARING_PASS . 

. dief ine FINAL_PASS 

define AT LIMIT SUB BAND 

define • AT~USED_SUBBAND 

define SUMMARY ALARM ; 



.'0' ;0 -"■ 2 channels, 1 ■ one 

'1' ;0 - left channel, 1 - right 

•2* ;0 - not JOINT STEREO, 1 - yes 

•3* ; FULL Stereo upgrade-. allocation 

; 1 -YES at full, 0 o joint 
'4*. ;has stereo intensity sub-band.; 
; boundary been reached: . . 
0 - NO. 1 « YES 
.'5* ;did loop thru allocation tests 

; make any new bit allocation/ 
. ; o . • yes / 1 ■ no 
•6' . ^allocate to masking threshold:. 

; o-YES. l-no (ALL are below) 
'7' ■ .-alloc to threshold of hearing: 

.. .• O-YES. 1-no (ALL are. below: 
•8% ; allocate pass of what's left:. 

. •; 0 « NO. 1 » YES ./ 
•9' . ' ;does NOT req at least 1 allcc 
.'•10* ; above .used- sub -band limit 
'16' .did any alarm get sensed 
; <• ". -j* 0 - NO.' 1 « YES . 
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define 


PROTECT ■ 


'18* 


define 


MON0_OUT_ CHANNEL 


'19 ; 


define. 


,MONO_OUT_BOTH / ■ ■ 


*20' 


define' 


LEFT_S I NEWWAVE . 


•V '21' 


define 


RIGHT_SINE_WAVE . 


'22' 


define 


LOW_vs_HIGH_SAMPLING. . 


.'23' 



; decoding overload, flag 
define • SKF ZERO 



'3-'. 



; should checksum. (CRC16) - protec- 
; 0 « NO f . 1 « YES * - 

; output to only one channel:. 
; 0 ■ left, 1 « right 
; output mono to both channels: 
; 0 «. NO only one, 1 » YES * 
;left channel music vs tone. 
; 0 - NO only one, l « YES . 
; right channel music vs tone 
; 0 -NO only one , 1 « YES 
.•encode low or high sample rate: 
; 0 - low, 1 « high 



; sensed a zero scale factor 
; 0 • no, 1 • yes 



,-define bit position flags for decoding frames with the CRC-16 checksum 



define 
define 
define 
define 
define 



USE SAVED 
FRAME SAVED 
SAVE FRAME 
USINGJSAVED 
RE FRAME 



'6' 
'7' 
'8' 
'9' \ 
'10' 



/checksum failed use saved frame 
;a good frame was saved for use 
;save this good frame for use . 
; this frame is the saved frame 
;cnt bit errors exceeded, >eframe 



; define decoder auto selection flags for; 

bit rate (determined by trying to frame at each of the two 
*.;.:■• bit rate choices) . - 

type of audio data (MUSI CAM frames or G722) 

. (determined by not being able to frame at either 
of the two bit rate choices) 
sampling rate (determined from a MUSICAM frame header) 
NOT auto selected, some other switch sets the value) 



(if 



define AUTO SELECT B ITERATE '11* 

define AUTO~SELECT~DATA_TYPE '12' 

define AUTO~SELECT~SAMPLE RATE '13' 

define MUSICAM vs G722 . '14' 

define SAMPLE RATE LOW_vs_HIGH '15' 



;0«NO, 1-YES 
;0-N0, 1-YES 
;0«NO, 1-YES . 
;0-MUSICAM, 1-G722 
; 0-low, 1-high 



; this flag indicates if CCS. compression applies to getdat a. asm 

define DECOMPRESS_PACKED '16' 

;this flag indicates that the framing process has previously determined 
; that the input data to the MICRO decoder is a stream of MUSICAM frames 

define .MUSICAM.INPUT^SET ' '17t ; 0 -NO , 1-YES ■ . 

'.-define flag that the current frame has a sync word violation 

define NO_SYNC "• 'V: . * * ■* 21 " : 

;define flag that determines which. ISO CRC-16 controls to, use: 

. 0 - OLD controls: seed with 0's and fixed span of bits covered 

• 1 * NEW controls: seed with F's and dynamic span over the SBits 



define : CRC OLD. vs NEW 



22' 



WO 96/32805 



PCT/CS96/04835 



-17- 



;dei;ne th e: sub-band allocation AtLimi V bit flags; that control. selection 



define KASKING_LIMIT 
define . H£ARING_LIMIT 
define ALLOCATE_LIMITV 
define. NO_ALLOCATE . 



'0' • -1 reached sub-band's masking threshold 

'1* 'l reached sub-band's hearing threshold 

'2' ;1 reached sub-band; s max. bit limit 

•3* ;1 NO allocation at this sub-band 



define LIMITSUBBAKDS 



•17'* ; sub-bands 0. thru 16 get at- least 1 



* ~~^'~4*,m f rflI fUc that a sub-band did not need any bits 
:<«V£XZ SK SL^S'^ S^f^ being allocated . . 



" define FRAMELIMIT . ; ' 4 ' 
codes; for stereo intensity subband bound 



define INTENSITY_4 

define INTENSITY^ 

define INTENSITY_12 \ 

define INTENSITY_16. . 

define NSTINTENSITY 

define MASKSTINTENSITY 



' $000000' 
'$000001' 
'$000002' 
'$000003' 



$000003* 



<2 bits 25-27 of frame header) - 

- oo- subbands. 4-31 intensity mode 
•01 subbands 8-31 intensity mode. 

• 10 subbands 12-31 intensity mode 
';.-ll subbands 16-31 intensity mode 

• 2 bits for intensity boundary 
Irnask high order from gecvalue 



stereo 



intensity boundary sub-band counts 

define B0UND.4 , 

define BOUND_8 

define BOUND_12 

define BOUND_l6 



'4' . 
'8' 
'12' 
'16' 



0-3 full stereo, 4-31. intensity 
0-7 full stereo. 8-31 .intensity. . 
0-11 full stereo.. 12r3l intensity 
0-15 full stereo/ 16-31 intensity 



codes for output bit rates 

define BITRATE_FREE 
define BITRATE_32 
define BITRAT£_48 



(4 



bits in positions 16-19 of frame header) 



I ! 128.8 



define 
define, 
define 
define 



! i 128.8 



define 
define 
define 
define 
define 
define 
define 
" define 
define 
define 



BITRATE_56 
BITRATE_64 
BITRATE_S6. 
BITRATE_64 

BITRATE_80 : 
BITRATE_96 
BITRATE.112 
BITRATE_128\ 
BITRATE_160 
BITRATE_1?2 
BITRATE_224. 
•BITRATE_256 
BITRATE 320 

b:trate~364 



'S000O00* 
•S000001' 
'$000002* 

• $000003' 
'$000003' 
'$000003' 

' $000004; 

'$000005' 
'$000006' 
'$000007' 
'$000008' 
•$000009' 
'$00000a* 

•sooboob' . 

*$00000c' 
•$00000d' 
'Soooooe' 



0000 ® unknown kbits/s. 
.0001 • 32 kbits/s . 

0010 9 48 kbits/s 

0011 « 28 .8 kbits/s 
0011 • 28.8 kbits/s 
ooii • 56 kbits/s 
0100 • 64 kbits/s 



oioi a 

0110 • 
0111. • 

1000 9 

1001 « 
1010 » 
■ 1011 9 

1100 9 

1101 * 
1110 



80 kbits/s. 
96 kbits/s 
112 kbits/s 
128 kbits/s 
160 kbits/s 
192 kbits/s 
224 kbits/s 
2S6.'kbits/s 
320 kbits/s 
9 384 kbits/s 



define'. e:trat£.FREE.LOW 'S000000; ; oooo .unknown kbits/s- 
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define 
define 
define 
define 
define 
define 
define 

. define 
define^ 

[ define 
define 

'define 
define 



BITRATE 
3ITRATE" 
BITRATE" 
BITRATE 
BITRATE 
BITRATE" 
BITRATE" 
BITRATE 
BITRATE" 
BITRATE 
BITRATE 
-BITRATE, 
BITRATE 
BITRATE 



8 LOW 
1? LOW 
2 4 "LOW 
"32"LOW , 
4 0~LOW 
"4B LOW 
"56"LOW 
"64"LOW. 
"80~LOW 
*96~LOW . 
"112 LOW 
7i28~LOW 
"l44~LOW 
"l60"LOW 



define NBITRATE 
define MASKNBITRATE 



,..18- 

•S000001* 
• S0000C2'- 
'$000003' 
' S000004' 
'S000005'-' 
'S000006' 
'$0000C?\ 
'S000008-' . 
'$000009* . 
'SOOOOOa' 1 

•sooooob'. 

'SOOOOOC'.- 
'SO.OOOOd' 
'SOOOOOe' ; 



oooi ®- 8 kbits/s 
CC10 (t IS kbits/ s 
0011 a 24 -kbics/s. , 

0100 32 -kbits/s * 

0101 9 40 kbits/5 
.0110 • 48 kbits/s 

: Clll « 56 kbits/s . 

1000 & 64 kbits/s 

1001 9 6C kbits/s 
1010 a 96 kbits/s 

J 1011 » 112 kbits/s 
1100 9 128 kbits/s 

. 1101 © 144 kbits/s 
1110 9 160 kbits/s 



•4» 4 bits for bit rate code ir. hdr 

•$00000f .-mask high order from getvaiue . 



codes . for input satnpling rate^2 bits in; positions 20-21 of . :frame header V 



128.8 



define 
define 
define 
define 
define 
define 
define 



SAMPLE ZO BIT_HIGH . 'A 
SAMPLINGRATE 16 'SOOOOOO' 
SAMPLINGRATE~24 ' SOOOOOO ' 
SAMPLINGRAT£~16 * SOOOOOO ' 
SAMPLINGRATE~48 "SO 00001* 
SAMPL INGRATE^ 2 . ' S 0 0 0 0 0 2 ' 
SAMPLINGRATE 24,/ $000003' 



\ M28.8 



define 
■define 

define 
define 



NSAMPLERATE 
MAS KNSAMPLERATE , 

NSBITS 
MASKNSBITS . 



00 ® 14 .4 kHz 
00. ® 14 .4 kHz 

00 ©16 kHz 

01 ® 48 kHz 

10 » 32 kHz 

11 .© 24 kHz ' 



; 2 bits for sampling rate in hdr 
, ; mask high order from getvaiue 



■ S000003* 

'2' .-length of the scale factor selec: 

•5000003' ..-mask high order from getvaiue 



^he following defines the masker structure. 
This structure occupies both x an y memory U? 



define MASKERSSIZE '3', 

define MAS KERSPWRDB / 0 '; 

define MASKERSRSPWRDB # 0' 

define MASKERSBIN .'IV 

define MASKERSBFREC •'. ' *!' 

define. MASKERSTYPE . '2', 

define MASKERS CR I TBND '2' 



for watts 



My) 



-length of the structure 

.•offset to masker power (1 

; and x for dB) 

".•offset to reduced power m db . 

•offset to bin number ix). 

'•offset to freq'in bark iyi. -. 

•offset to masker type (xi . 

.•offset to. maker crital band if noise 



;hichest number of critical bands for all sampling rates, 



define. NUMMAXCRITBNOS .'26' 



if SAMTYPE--SAM16K 

; : : :26.e 

define ... MAXCRITBNDS 

; I 1 !28.8 

; ■ endif - 



•21' 



.•number of critical bands 



if ,SAMTYPE— SAM24K 



28. B 



;.'t 
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:28.8 
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endif 



MAXCRITBNDS 
MAXCRITBNTS 



if SAMTYPE—SAM32K 
define" MAXCRI TBNDS 
■ endif * ■ 

if SAKTYPE— SAM48K 
define MAXCRITBNDS 
. endif 



' 21* 
' 23* 



; r.umne r. c f cnt 
; number zi eri- 



ca. car.es 
ical bands , 



'24* " '; number of critical bands 



24 t - \ ' ; nurabe r o f , c r 1 1 i ca i bands 



:2B.6 



:.! !28.6 



define MAXCRITBNDS 16 '21'- 

define "MAXCRITBNDS 24 '21' 

define : MAXCRITBNDS_16 . # 21':-. 

define MAXCRITBNDS_24 : '23' 

def ine MAXCRITBNDS 32 ' 24 ' 

define MAXCRITBNDS^ 8 '24' 



jnuraberof critical- bands at. .14. 4' K 
•number of; critical bands at 14.4 K 
,;number of critical .bands at 1£ K 
; number of. critical bands at 24 K 1 

; number of critical bands, at 32 K * 
; number of critical bands at .46 K. 



The following defines the Aliasing, structure. 
This structure only occupies x or y memory. 



def ine ALIASSIZE '2': 
define ALIASBIN '0' 
define ALIAS PWRDB . . '1' 



length of the structure 
;bin number of aliaser. (0-511) 
•power of the aliaser in sib. 



General things 



define NUMSUBBANDS 
define NUMB LOCKS 
define NUMPERBLK 
define NUMPERSUBBAND 
define.SKF 
define MASKSKF 
define SKFX2 ; 
define B INS PERSUB BAND 
define NUM CHANNELS 
define NUMSNRPOSITIONS 
define NUMINDEXES - . . 

de f ine MAXSUBBANDS_CCS 
define MINSUBBANDS_CCS 
define MAXSUBBANDS_LO. 



'32' ;number of sub-bands 

•3' ; number of blocfcs per super- frame ; 

'384' ;number of points per block 

'12' ...-number of points per sub-band 

'6' ; number of bits per scale factor. 

'S0OOC3f ;mask high order from getvalue 

'€4* .. ; number of scale factors 

•16'. r number of FFT. bins per subband 

*2* ;two channels: left and right 

'18* ;18 Signal-to-Noise position- codes 

'16' '". ;16 position codes Allowed per sub -band 

'30' . ;maximum sub-bands to ever be; used . . . 

*,4'. . • -minimum sub- bands to ever be used 

'14* ;low bit rate max sub-bands ever. used 



; def ine the used subbands t or 64 and 56 KBits 
; . sampling rate / 2) - max Hz / by 32 sub-bands 
; • •.' based "on sampling rate:". 
. . - . .. 14400 9 225 Hz per sub-band 

\. . 16000 « 250 Hz per sub- band 

.24000 «. 375 Hz per . sub-band 
*. ■ 32000 % 500 Hz per sub -band — 

48000 * 750 Hz per sub-band (48000/ (2* 
. also based on bandwidth code_ selection from a 

.00 ■ CCS standard . 

01-1 sub-band .less than standard 
.'. ■'• • 10 ■ 2 sub-bands less than standard 



Hz per sub -band , 



(14400/(2* 
(16000/(2* 
{24000/ (2* 
i32000/(2 



32: NUMSUBBANDS 
32: NUMSUBBANDS 
32: NUMSUBBANDS 
32: NUMSUBBANDS 
32: NUMSUBBANDS 
pair externa 



225)' 
2501 . 
375) 
) - 500! 

750 ; . 
switches : 
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•28.8 



define 
define 
define 
define 

3 

define 
def ine 
define 
define 
define 
define 
!def ine 
. define 



USEDSUBBANDS 
USEDSUBBANDS" 
USEDSUBBANDS" 
USEDSUBBANDS™ 

USEDSUBBANDS 

USEDSUBBANDS" 

USEDSUBBANDS" 

USEDSUBBANDS" 

USEDSUBBANDS" 

USEDSUBBANDS" 

USEDSUBBANDS" 

USEDSUBBANDS' 



CO 16 
01*16 
10""l6 
A 1 ! 16 ' 

00_16 
01 16' 
'l0~16 
11*16 
'00~16 
'01~16 
'l0~16 
'll~16 



'27' 

; 26* 
... 25 * 

' 24 ' 

'30' 
'26' 
'22' 
*18' 
'22' 
'21' 
f 20' 
'18' 



6750 Hz ©16000 Hz sampling 

'6500 Hz <3> 16000' Hz sampling 

6250, Hz © 16000 Hz sampling 

6300 Hz 9.16000 Hz sampling : 



6750 Hz 
58S0 Hz 
4950 HZ 
405C Hz 
5500 Hz 
.5250 Hz 
5000 Hz 
4500 Hz 



® 1.44 00 
S* 14400 
® 14400 
® 144C0 
« 16000 
® 16000 
® 16000 
® 16000 



:28.8 



Hz sampling 
Hz sampling 
Hz ? sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz. sampling 
Hz sampling 



•28.8 



define USEDSUBBANDS 00 24- '30' 
define USEDSUBBANDS~0;T24 '26' 
define USEDSUBBANDS~10 24 :' 22'> 
define USEDSUBBANDS 11 24 '18* 
define' USEDSUBBANDS" 00^24 .'27' 
define USEDSUBBANDS 01 24 '26' 
define USEDSUBBANDS~10 24. '25' 
define USEDSUBBANDS 11_24 '24', 



•26.8 



define USEDSUBBANDS_00_24 '18' 

define USEDSUBBANDS 01 24 '16' 

define USEDSUBBANDS~10~24 '14': 

def ine . USEDSUBBANDS~11_24 '- 12 ' 

define USEDSUBBANDS 00 32 '20' 

define USEDSUBBANDS_01_32 '19' 

define USEDSUBBANDS 10_32 '18' 

define USEDSUBBANDS~11_32 '17' 

define USEDSUBBANDS 00 48. '11' 
def ine USEDSUBBANDS~0 1~4 8 ' 1 0 ' 
define USEDSUBBANDS_10_4 8 '9' 
def ine .USEDSUBBANDS 11_48. '8' 



128.8 



define INPCM 
define PCMSIZE.. 
define PCMSI2E. 
define PCMSIZE : 

if SAMTYPE--SAM16K 

define RATES 6 
define OUTM56 . 
def ine : OUTB56: 

define RATE64 : 
define OUTM64 
define OUTB64 . 

define RATES 6 

def ine-.OUTM56; ,. 
. define OUTB56 



•1152' 
•2560' 
'1152' 
'2304' 



'0' 
'96' 
'2304 \ 

' 0 ' . 
' 96' 
'23 04'' 

'0' 

'168' - 
V4032' 



6750 Hz « 14400 
5850 HZ. ® 14400. 

. 4950. H2 @ 14400-. 
4050 Hz ® 14400 

10125 Hz <S 24.000 
9750 Hz ® 24000 
9375 Hz © 24000 
9000 Hz ® 24000 



Hz sampling 
Hz sampling 
Hz sampling 
Hz. sampling 
Hz sampling 
Hz sampling . 
Hz sampling 
Hz sampling 



; 6750 Hz ® 24000 Hz sampling 

, 6000 Hz @ 24000 Hz sampling 

; 5250 Hz ® 24000 Hz sampling . 

; .4500 Hz « 24000 Hz sampling 

; iOOOO Hz ®. 32000 Hz sampling ; 

;. 9500 Hz © 32000 Hz sampling 

; 9000 Hz © 32000 Hz sampling 

; -8500 Hz.® 32000 Hz sampling 

8250 Hz ® 48000 Hz sampling 

; 7500 Hz ® 48000 Hz sampling. 

; .6750 Hz ® 48000 Hz sampling 

;. 6000 Hz ® 48000 Hz sampling 

; NUMPERBLK*NUMB LOCKS 

; NUMPERBLK*NUMBLCCKS* 2+256 

; NUMPERBLK* NUMB LOCKS ! ! ! dbg ! ! ! 

; NUMPERBLK* NUMB LOCKS* 2 :!!dbg!i 



;dip switch code : for 28.8 Kbits 
;96 output, words (2304 bits) 
; .080 * 28800 : 

;dip switch code for 2e.B Kbits 
;96 output words (2304 bits) 
; .080 .* 28800 

;dip switch' code for 56 Kbits 
;168)c output words' (4032 bits) 
; .072 *. 56000 . ■ - 
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! 128.8 



: ! I 128.8 



define RATE64 
define CUTM64 • ; . t 
"define OUTB64 

i . 

■endif": 
if SAMTYPE—SAM24K 



.define. 


RATES 6 .. 


'0' : - 


;•" ■ "define 


OUTM56 , - 


'96' 


define 


OOTB56 ■ > 


'2304* 


- define 


RATE64 . . 


'0' ' 


define' 


OUTM64 


: '96* 


V define 


OUTB64 


'2304'. 


■ ' define 


RATES 6 


■■■ '0' 


define 


OUTM56 


■;■ 'ii2'' 


. :' define 


.OUTB56 


.. ■ '2688/ 


define 


RATE64 


: 'i' . : - 


define 


OUTM64 


•128' 


. define 


OUTB64 . 


'3072' 


28 .8 






endif 







if SAMTYPE--SAM32K- 
define RATE56 
define OUTM56 . . 
define QUTBS6 . 

define RATE64. 
define OUTM64 
define 0UTB6 4 
■ endif • 

if SAMTYPE— SAM4BK 
define RATES € ... 
define OUTM56 
define -OXJTB56 ' . 

define RATE 6 4 " 
define OUTM64 
define OUTB64 
endif ' ' " 

• define RATE_LO ' 
define RATE_HI . . 



- 21 - 

'1' ;dip switch code for 64 Kbits 

'192' ;192Ic output words (4608 bits; 
'4608' ;.072 * 64000 



;dip switch" code .for 28.8 Kbits 
;96 output words (23 04 bits) ; 
; .080: ♦ . 28800 .' ■ " . 

;dip switch code for 28.8 Kbits 
; 96 output words (2304 bits)". 
; .080 * 28800 

. ;dip switch code for 56 Kbits . 

;112k output words (2688 bits) 
• ; .048' * 56000. . 

;dip switch code for 64 Kbits - 
;128k output words (3072 bits) 
; .048 * 640C0 



'0'' ; dip switch code for 56 Kbits 

'84' ' ;84k output words (2016 bits). 

'2016'- ;.036 * 56000. ... 

'1*. : ; dip switch, code for .64 Kbits 

*96' "•' ; 96k output words (230.4 bits) 

'2304' ; . 036 * 64000-.. 



'0' ;dip switch code for 56 Kbits 

'S6' ;S6k output words (1344 bits) 

.'.1344.'. 024 * .64 000 

.'1' : ; dip switch code for 64 Kbits- 

•64' ;64k output words (1536 bits) 

<1S36* ; .024 V 64000 . . 



'0' . ' ;dip switch code for lower Kbit rate.: 
'1* ;dip switch, code, for higher Kbit rate. 



define framing bit; rate values for sampling at 16 K 



!28.8 



define OUTM32_l6 
define OUTB32_16 
define OUTM48_16 
define OUTB48_16 



define OOTM56_16 
define OUTB56_16 
define OUTM64 16 



'96' ;96k output words (2304 bits) 

'2304' ; .072 * 32000 

'144' ;144k output words (34S6 bits} 

'3456'.. ;.072 * 48000 

'96' ; 96 output words (2304 bits) 
' 2304 .080 * 28800 ■ ' ; 

'96'-' ; 96 output words (2304 bits). 
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define CUT364_I6 
define CUTM56_16 
define OUTB56_16 
define OUTM64_16 
- define OUTB64_16 



* 2304' " ; .080- ♦ 29800 

'16B' . ;16Bk output words- (4032 bits) 
•4032* ;.072 * 56000 

'192' . ;192k output' words (4608 bits) 
'4608'. ; .C72 * 64000 



; ! : :2B.a 



define framing' bit rate values for sampling at- 24 K 



define 
.define 
define 1 
define 



!! 128.8 



define 
define 
define 
define, 
define 
" define 
define 
"define 



OUTM32 24 
OUTB32~24 
0UTM4 8~24 , 
OUTB48324 

OUTM56_24 

OC7TB56~24 

0UTM64~24 

OUTB64~24' 

OOTM56~24 

OOTB 5.6^24 

OUTM64~24 

;OTJTB64~~24 



*64' ; ;64k output words (1536 bits) 

.'1536' ; .048 * 32000: 

'96' ■ .. ; 96k output words 12304 bits)- 

*2304'. ;.048 * 48000. 

•96' ;96 output' words (2304 bits) 

'23C4:* ; .080 * 28800 

'96'' . ;96 Output words ( 2304 -bits) . 

•'2304V ;.080 * 28800 

'112' 112k output words (2688- bits) 

• 2688 ' ■ ; .048 * 56000 ' '. 

'128' : ;128k output words' (3072 bits) 

'3072' ; .048 * 64000 



I ! 128 . 8, 



define framing bit rate values for sampling' at 32 K 



define OUTM32_32 
define OCTB32_32 
define OUTM4B_32 
define OOTB4B_32. 
define OUTM56_32 
. define <OUTBS6_32 
■ define OUTM64_32 
define OUTB64_3 2 



'48* ; 4 8k output words (1152 bits) 

'1152' ; .036 * 32000 

. '72' ;72k output words (1728 bits) 

'1728' ;.036 * 480O0 

'84' ; 84k output words (2016 bits) 

'2016' ;.036 * 56000 

•96' ;96k output words (2304 bits). 

'2304' ; .036 * 64000 



• define framing bit rate values for .sampling at 48 K 



define CUTM32_48 
define OUTB32_48 
define OOTM48_48. 
define OUTB4 8 48 
define. OUTM56_48 
define OuTB56_48. 
def ine OUTM64_48 
define OUTB64 - 48 



'32' ; 32k output words (768. bits) 
'768' .024 • 32000 

•48' ;48* output words £1152 bits) 

'1152' ; .024 * 48000 . 

'56' ;5€k output words (1344 bits) _ 

' 1344' ; -024 * :64000 - . 

'64' ;64k output words. (1536 bits) 

'1536' ;.024 * 64000 



highest, number; of freqs used for coding for ".11 sampling rates ; 

define. MAXNMSKFREQS . '132'. . 
number of freqs used; for- coding based on defined sampling rates 
if SAMTYPE— SAM16K 



I 128.8 
: 128.8 



:23.a 



define NMSKFREQS 
endif . 

if SAMTVPE--SAM24K 



'132' . ; number. of freqs used for. coding 
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; de f i ne • NMS KFREQS . 

e " ■ • 
endif 

if SAMTYPE— SAM32K 
define- NMSKFREQS ■ . 
endif 

if " SAMTYPE--SAM4 8K 
define NMSKFREQS. . 
. endif ■• 



! 26 . 8 



: : !28.s 



define NMSKFREQS_1€ 
define NMSKFREQS 24 
define NMSKFREQS"l€ 
define NMSKFREQS 24 



define NMSKFREQS 32 
define NMSKFREQS_4 8 



'132' 



•132' 



•126' 



•132' 
'132'' 
•132' 
'132' 

'132' 
' 126'. 



-23" : 

; numbe: 



freqs used for. coding 



; number of freqs used for coding 
; number of freqs used for coding. 



;num. freqs used- for coding at 14.4 K; 

• ; num freqs used for coding at 14.4 K' 

;num freqs used for coding . at 16 K 

;num freqs used for coding a; 24 K 

;hum freqs used for coding at 32 K . 
; num. freqs used; fcr coding at 48 K 



the following indicates if CCS compression for. positions : -I, 2 and 3 



define COMPRESS . '3' 
define COMPRESS .. 'I' 



; 0. indicates no* CCS compression 
;1 indicates use CCS compression 



define uncompressed getdataC) getvalue masks for. unpack: 
. upack3, upackS and upack9 . .. 



define MASKUPACK3 'SOOOOlf 
define MASKUPACK5 'S00007f 
define MASKUPACK9 . ; 'S0003ff 



; .5. bit getvalue retrieved: 
; 7 bit getvalue retrieved" 
; .10 bit getvalue retrieved 



define CCS compress: ge t data <)" getvalue masks for unpack: 
. " upack3, upackS. upacka and upack9 



define MASKUP ACK3 X 

define MASKUPACK5X 

define MASKUPACKBX 

define MASKUPACK9X 



•SOOOOOf ' 
•S00003f ' 
' SOOOOf f ' 
• S0003ff ' 



needed by the decoder rde code program 



define NOOF 
define NSBUFS 
define MAX TRIES. 



'5' 
'4' 
•10' 



4 bit getvalue retrieved 
6 bit getvalue retrieved 
8 bit getvalue retrieved 
10 bit getvalue . retrieved 



; number of out of frames 

;nuinber of sync buffers 

; restart after framing tries 



needed by. the decoder rsynth program 



'512' 
'768' 
'1024' 
'1152' 



;size of the output buffer. 

;size cf the output buffer. 

, ; s i z e . o f • : the output bu f f e r . . 

; size of the output buffer 



; /. define OUTBUF . 
• •'■ ■ define OUTBUF 
;• • • • define OUTBUF'. 

define ■ OUTBUF . . 

; needed by ail 

define NPERGROUP ? 

This -constant is used byxpsycho inly, to .Mt; to, of f set" used to account. 
.; for the phase locked loop- (PLM jitter. - 



'3' ; number of samples per processing grp 
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define r-lCFSr: 



• 32 ' -.-number of samples of offset 



deft: 



ne -he me t hods' of "ope rat ion' controlled by switches 
normal operation vs various di gnostic operations 



define 
define 
define 
define 
define 
define 
define 
define 



;def 



NORMAL OPER . 
LEFT lOQChz 
RIGHT_1000hz . 
BOTH lOOOhZ 
MEMORY TEST 
LEFT lOOCChz - 
RIGKT_lOO00h2. 
BOTH 10000h.2 , 



'•■$000000' 
• 'S0OO0C1' 
'S000002' 
'5000003' 
'S000004' 
' $000005' 
'SOOC006' 
'S0CQ007' 



000 normal opearion' 
.CC1" 1000 -Hz ;tone" left. 
\01C 1000 Hz tone, rigi: 



mute right 
rrute f left 



1000 Hz tone to both channels 
perform memory tests- 
10000 Hz tone, left," mute right 
lOOOO'Hz tone right, mute left 
111 10000' Hz tone to .both channels 



en 

100 
101 
110 



,ae ancillary data- baud rates and byte counts per. 



frame 



ime period ■imsecsi 



de f ihe " BAUD3 0 C - 
define BYTES30C 
define M_SCCR3GC 

define BAUD1200 
define BYTES 1 2 0 C • 
define M_SCCR120C . 

• define BAUD2400 
def ine BYTES2400 
define >._SCCR24 00 

define BAUD360C 
define BYTES36 00 
define M_SCCR3600. 

define BAUD4800 
-define' BYTES4SQC. 
define M_SCCR4 800 

define BAUD" 20 C 
define. 3YTES720C 
. define M_SCCR72.00 

• define BAUD9600 . 
define BYTES9600 
define M_SCCR96 00 

define BAUD19200 . 
define BYTES192Q0 
define M^SCCRl 92 00 

define BAUC7200. - 
■;- define BYTES7200 
define M SCCR720C 



•0-' 
•1* • 
'S57; 



•1' 
'4' 

•$l5f ' 

2 ' 
'6' 
'$af 

•3' 
•11' ■ 
•574' 

'* 4 ' 

'15' 

'$57' 

'5' 

•22' 

'$3a\ 

' 6 ' 

•29' 

'$2b' 

'7 . 
•SB' 
•SIS' 

•5' 

'Sa-' 



define BAUD_KMAR7_DCD 8 
define BYTEJQMART_42187 127 
define M KMART_42187 . S9 



define M SCR.CD 
define M^SCR_DCD 



•so?: 
•si2; 



;dip switch. code for 3 00 baud, . 
;l byte ^7.2 bits «■> B bits; . 
; set clock for 3CC baud rate ". 

;dip switch code for 120 0 baud 
;4 bytes 128.8 bits «•> 32 bits) - 
]set clock for 1200 baud rate 

;dip switch code for 2400 baud.; 
; 8 bytes (57.6 bits »»> 64- bits; 
; set clock. for 2400 baud rate.. 

;dip switch code for 3600 baud 
•11 bytes i86.4 bits .««> B8 bits- 
.'.•■set clock for 3600 baud rate . 

; dip switch code for 480C baud 
•IS bytes (115.2 bits «-> 12C bi: 
?.set. clock for 4800 baud rate 

. ; dip switch code, for 7200 baud 
•22 bytes il72.B bits «-> 176 ..si' 
; set clock for 72CC baud rate 

; dip switch code for. 960C baud 
•29 bytes 1230.4 bits »-> 232 ci 
)set clock for 9600 baud rate 

; dip switch code for 192CC baud 
•58 bytes (460.8 bits — > 464 bi 
•set clock for 19200 baud' rate 

;dip switch code fcr 38400 baud 
•116 bytes (921.6 bits— > 928 s 
iset clock for 3 WC0 baud rate 

; code forced by boxjrti . 
•127 bytes (1012.5 bits -«> l-*€ 
;set clock for 4218?. 5 baud rate 

.-enable re fc rei for encoder • 
;.enable te k tei for decoder 



,ts < 



ts) . 



its; 



bits 
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/ ; ; ■ . . .. \ .25- ' , ' ■;. - '/ ; • 

define. DATABUFLEN ..*. ■ '512' ; ancillary data inpuv buffer ler.-jt: 
define 3ITSPERBY7E .' \ '8' l - ■■ - ancillary "data in 8 -hit. bytes 
define BITS FOR? ADDING.' * .'3: ; framed bit ccunt for pad byte ecu: 

-list *."■:. ■■' *.■■'• "... S : ' . \ • ■". * 
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'ic":-.199S- Ccpyright' Corporate Computer Systems; Inc;. All rights, reserved. 

- \DGCST\bcx_ct 1 • asm 

This file contains the' definitions for the .control . variables, for ' 
running, the encoder and decoder fcr: * . . 

-Digicast MiniCodec version cf CCS CDQ1000: 

sampling rate is 14.400 K - 225 Hz per sub - band : t coded as 16 K sampling; 
'bit rate is 28.8.KBits per sec (coded as the low sampling rate; . 
the frame header- is coded as 'fffcOO* 

Pert B for the encoder and decoder is. defined as a host port . 
: encoder has its own phase lock detected oh pel of Port C • 
decoder phase lock is detected on pcO.cf Port C. 
\ - • . ancillary-; data is NOT APPLICABLE * \ 

.■define the bits required for Reed Solomon error correction 

define REET_S0L0MCN_3ITS . '240' ;8 bits - 30 Reed Soiomcn bytes 

;define.'the choice pairs cf input PCM sampling rates to make available 

; : : 128.8 



:2e.s 



define SAMPLE_16K_AND_24K . 
define • SAMPLER 6K_AND_2 4 K 

3 .."■■-*.-: 

define SAMPLE 16K_AND_32K 
define SAMPLE~16K_AND_4 8K 
define . SAMPLE 24K AND_32K 
de f ine SAMPLE~2 4 K~AND_4 8 K 
define . SAMPLE 32K AND_48K 



'C'\. ;choice of 14400 or 14400, 

'0' ■ .-choice -of 16000 or 24000' 

'1' . .. ;choice of 16000 or 32000'. 

'2'.' . ;choice of 16000 or .48000 

•■3'" .-Choice of 24000. or 32030 

'4' ;choice of 240C0 or 48000 

•S* , .-choice of 32000 or 48000 



.-define the selected pair of 



input 



PCM sampling rates to make available 



!2e.6 



128.8 



define SAMPLE_RATE_?AIR 



; 14400 and 14400 sample rates 



! : 123.8 

: : 128:8 



if SAMPL£ - RATE - PAIR«SAMPLE_16K_AKD_24K 



define 
define- 
define 
define 
define 
define 
define 
. define 
define 
define 
define 
define 



low sample rate . . 
high_sample_rate . 
framesvnc lo 
framesytkThi - 
low sample ratejtcs 
high sample rate_ccs 
• framesync lo ccs . 

FRAMESYNC~HI_CCS 
LOW SAMPLE RATE_ISC 
HIGH SAMPLE RATE_ISC 
FRAMESYNC LC_ISO ■• 
FRAMESyNC"KI.:SO ;. 

endif 



' soooooo* . 

'SO0OO0O' 
'SfffcOO' . 

* SfffcOO' 

* S0OCO0O'- 

* $000000' • 
'SfffcOC 
•SfffcOO'. 
'S0O00QO' 
'S0O000O' 
'SfffcOC 
'SfffcOO'.. 



00 
00 

fr 
■ 00 
00 
<<- 

fr 



00 « 14 .4 KHZ 
CO i* 14.4 KHz ' 
fr sync pattern 14 
; fr sync pattern 14-.4X 
« 14,4(16) KHz 
S 14 .4 (16V KHZ 
sync old CCS 14. 4 K 
sync old CCS l4.4K;lt- 
9 14". 4.(16;- KHZ - 
« 14 .4 (24) : KHz - 
sync MPEG- ISC 14.4K.1S 
sync MPEG- ISC 14.4Ki 



24 



; 1 ! 128.8 
;1 1128.8 

idefine the. framing max tries. fcr.MUSICAM. 

• ■ define VERIFYJTRIES ' ' . .'5'* ■ . verify found rates 
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de'ine - MAX BOOT TRIES 
~ 



•4C 
'8C 



;fcr .56 seconds 
.- for 1-..S2 seconds 



define . MAX~AVTO~TRIES 
; define the. power up wait times be fore going into processing 



de'ine. XCODE_STARTUP 
-define . RDCDSYNT_S7ARTUP 



' 100C 

.' iooo: . 



: v second 
; i second 



.define the memory layouts f or ^ any. '.diagnostic memory nesting: 



; decoder memory layout : 

define START_P_MSMORY_DCD 

define END P MEMORY_DCD 

• define START~X MEMCRY_DCD 

de'ine END X~MEMORY_DCD ■ 

def ine START~Y_MEMORY_T)CD ; 

define END_Y_MEMORY_DCD -.- 

define WATCK_DbG_TEST_DCD 



'1024' 

•2048' 

'40' .. 

'512C 

M28' 

'1536* 

'20' ■ 



; 20 millisecs for watch dcg. 



.define 
lower 



the encoder /decoder overload scale factor code a scale ,f acter 
thtn this, value is considered an overload condition 

define " OVERLOAD^ SKF • . '5* ■.• ■ 



\j -an-rols to -eframe if an excessive error condition persists 

: d A 'recuer^ coult of frames out -of- frame or oof.« ; inc sync pattern) . 

, ,he counter when an error ^sensed to ^^"Vr.ich the ref rame 
^^rwn^nele^s^ persistant pattern of- alternating or .near^ aiternating 
; cood frames and bad frames. 



define GOOD DECREMENT '1'. 

define BAD INCREMENT '2' 

define BAD~LIMIT *«' 

define BAD CRC_LIMIT *10' 



; good' frame decrement value 
•error condition frame increment value 
-'; out -of -frame (oof's; tolerance. 
,-CRC-U checxsuT./bit- error tolerance 



•ben 3/8/94 (start): G722 modification for K221 . 
; Hand shake definition (PBD) 



' define 
def ine_ 
define 
define 
define 



Hsrrt 
cc 

C2 

ABIT ' 
HSTTF 



'#14' 
'#9' 
' #10* 
'#12' 
'#13' 



> Tx flag definition 



define TX_FLAG '#0' 
define M64 ■ '#1' 



; PB14 input 
;PB9 input 
;PBiC. input 
;PB12 input 
'; PBi 3.. Output- 



; #0 bit of x: flag 

;.<PB1j M64 or MS 6 switch 



/; ben 3/8/94 (end) G7 2 2 modification for H2 21 
;ben 3/21/93: decoder Reed Solomon address- parameters. 
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; define 
define 
define 
define 
define 
define 
define 
define 
" define 
'■ define. 



RSRegl 

RSReg2 

RSReg3 

RSReg4. 

RSRegS 

RSRegl 

RSReg7 

RSRegS 

RSIN 

RSOUT 



'S8f f 8' 
.'$8f f9' 
'$8f fa'. 
:$8ffb' 

'seffc 

'$8ffd' 
'$8ffe' 
•SBfff ' 
'$fff8' 
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;define PORT C initializations 

; encoder PORT C Assignments . 

; ..s ■ ssi port . 

; i - input port ... 

; • o » output port - -'■ 



8 - 

■ s . 



pcO 
pel 

P C2. 
,PC3 



pc4 
pc5 
pc6 
P C7 



7 € 5 4- 

S. S S ' i -; 

• e' 



3 2. 1 ,0 
so i o 

■ 8 . 



eclksel (o) 
eld (i) 
rstrs (o) - ' 
ebclk. <si> - 



elrclk ti) • 
ewclk (si) . 
eclk (si) 
esrdata (si) 



; . pc5 - en data (so) 



0101 - 5 • . ■ ^ " 

; select clock for Reed Spiomon. 

; phase lock detect <0«not locked,. l«locked) 

;resec Reed Solomon 

;bit clock •• 

oooo « o- "• .' .-: • . . ;. 

; input pem samples left /right clock 

; transmit .word clock ■; 

; input samples word. clock 

; input audio pem sample data 

0000 • 0 

; output. MUSI CAM frame data V 



define XCODE PORT C M PCC 
define XCODE~PORT~C M PCO 
define XCODE2PORT_C_M_PCDDR 

decoder PORT C Assignments: ■ 



'movep #>$01e8 ,x: <<$FFE1' 
'movep , ' #>$0004,x:<<SFFE5' 
'movep #>$0005,x:<<SFFE3' 



' s 
i 
P 

8 

s 



ssi port 
input port 
output port 



7 6 5.4. 
s s i s 

d .-. • 



3 2 1 0 
s o o i 

- 8 



pcO 
pel 
pc2 
pc3 



pC4. 



- -'olio. - s. 

-did (i: .-phase lock detect (0«not locked, l-ibcked! 

■ fclksel (o) " ;select clock for Reed Solomon 

« darst (o) ;d-to-a reset line (0 - mute, 1 » audio) 

■ dclk isi). /receive input frame data stream clock . 

= . 0000 «.0 "'. *'■'•■;■ ■ 

dwclk (si) ' ..-transmit dac output audio word clock 
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pes dire Ik . i .* 
pc€' ■ dbclk :si 
pc7 • drdataisii 



0000 



pc8 « dsdata (sol 



iransrr.it lac audio cut pur left/right clock 
; decoder bit '.clock . 
; receive input musicam frame data - 



.•transmit audio, data output tc dac 



'movep *>SCld8 ,x: <<SF?E1' 
'movep i>S0002.x:<<SFFE5' 
'movep . *>S0006 # x:<<SFFE3' 



-define RDECODE PORT C M PCC 
' define RDECODE~PORT"m~PCD 
define- RDEC0DE~P0R7~C ~M~PCDDR 

;define PORT B initializations /. 

;. -.encoder PORT 3. Assignments . • 

;.!::Ncte: for'Digicast pert- 3 is. a host "port ■ 

That means the following definitions are. not applicable. 



•14- 13- 12 - 11 1C 9 B.-.--7 € 5 4 - 3 2 1 C 

14" 13 "12* -. 11 10 9 8. - 7 6 5 4 - 3 2 '1 C 

,i i ; i ■ o i i o. .oooo o c i i " : . 

-i c i . ■ ■ o i-" i c . '."'o. o. c o o c i i 

c c o c . i- o i .i" 



1 i o 



MUSICAM •* 
G722 

• - G722 ** 



pbO » . I lb l i i 
pbl - bitrate (i) 
pb2 ■ coding (o) 
pb3 m samprate (o) 
;; pb3.« samprate (i 



pb4 « emus (o) . 

pbS - eovrld (c) 

pbS « e24k. io) 

pb7 o wd2 io)' 



pb6 • cal ;o) 
pb9 - eO (ii, 
pblO - el Ci) 
ptll . • eralS (o) 



pb!2 e3 : U>. ' 

pb!3 - e'2 til 

pb!3 - e2 io) 

pb!4 • e4 til; . 

; ; pbl4 «.e4' '< i) 



" • "1100 « c -.- ♦•' -MUSICAM **. 
. 0100 - 4 ** G722 . / 
.loop back 

frame bit rate (0«low, l-high) 
type of data input (0-MCSICAM, i»G722i 
PCM sampling rate I0«low, l-high) ** MUSICAM ♦'*- 
; KSFTT flag for H2 21 . **.G722 

'■ ■ mi ■-£'■.'■-.''■ : 
encoder MUSICAM led i0«eff. l»lit:- 
input pem overload led : * G«off , • -l»lit alarm' 1 
encoder phase lock loop led !0-cff. l«lit: ; 
watch dog timer . 



1001 -9 

; analog-to-digitai converter reset 
; CO flag for H221 = .' *•• G7I2 

;' C2 flag for H221 *♦ G722 

•must be set. to -.1 .- 



(0 -normal , 1 -reset 



0C0 - '0 *• MUSICAM 
010- *" 2 *♦ G722 •• 

ABIT flag for- H221 *• 

NOT -USED ■ .• • 

HSTTF flag for. K221 •* 
NOT USED : ■•• 
HSFTT flag for H221 / .* 
auto status of decoder 



••" G722 .♦♦ 

MUSICAM ** . ' 
•* G722 •*■■ 
*♦ MUSICAM".** . . 
•• G722 ••'.."; 
go to" low' samclir.g/MUSICAtt 
follow above pms . 



!Note : " t or. Digicast port B is a host port . ^ ,'- 

That means the previos definitions are. not applicable .. 



define port B as a. host pert. 

define . XC0DE_P0R7_B_M_?BC 



•movec* *>SO0:i.x:<<SFFE0.' 
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; sef data sc that baralS (bit /1 1.5 isl 

def ine . XCCDE_PORT_B_M_PBD . / ;.! i !Digicastmove? . *>$OBCC*.x 
; set bit direction "(output.' - i or input ■ or..- 



:<<SFFE4' 



tDigicastmove? «>SC9f c.x: 



• •♦ MUSICAM ♦*..-' 

define - XCODE_?ORT_B_M_PBDDR 
•* ''" G722 ** . 
" define XADPCK_PqRT_B_M_FBDDR ■' ; M Digicastmovep- *>S29fc.x: 

decoder PORT B Assignments . 

••Note:' fcr Digicast "port Bis a host port 

. That means the following definitions, are. not applicable.. 



<<$T?Z2* 
ccSFrE2* 



14 '13 12-- 11 10. ;9 8.-7 € 5 4-3.2 1 .0'- 
0 * " c' * o o. o d . ' " o .- i o c o o o. i . 
c ' ■* . z " c c o o o i o o ■"' o o o i 



.** MUSICAM 
** 'G722 •* 



: : 1110 - e . 

* titrate io) -determined framing bit rate (0«low. x-high; 
ofc2 - rcoding (ol ; type of data to decode (0 -MUSI CAM, 1-G722V : 
nb3 « rsamprate to); determined sampling rate. (0-low... l«high l 
. > •. ; ; HSFTT flag for H221 ' . • * G722 



pb4 - N/C. (o) 

pbS ■ N/C (o) 

pb6 » Id \ i ) 

pb"* " « wdl ' t-c) 



pb8 i 
pb9 « 
pblO 



;darst lo: 

eC \c* 
- el tc> 
• decra!5 to) 



; ; ; ; pb!2 » e3 tO>. 

; ; ; ; pb!3 •. e2 .to) /. 

; ; ; ;" pb!3 » e2 ' •( ".. 

; ; ; ; pfc!4 - e4 AO? 

; ; ; ; ; ;. pbl4 « e4 vO» 
,-rdcdsynt V . ■ - ... 



1G11 - b 
NO CONNECT ' . - . 
NO CONNECT . . 

phase lock loop detect (0-not locked. . .i-locked.; 
. watch dog timer - 

. 1111 - f : - - - : - •• 

digital -to- analog reset ;i-normal,G- reset: 

CO flag for H221 ... . •* G722 *♦ 

C2 flag for H221 ** 0722 ** 

"boot top Ci. cr bottom (3; if 512 cnip 

. .-, .111 « f • ** MUSICAM ♦> " 
101 » d •* G722 
• ABIT flag for H221 : 
NOT USED 

HSTTF flag for. H221 
: NOT USED 

i HSFTT flag fcr H221 



G722 ** . 
** MUSICAM-.** 
** G722 ** 
•* MUSICAM ♦* 
G722 ^ 



auto status: - C NOT f ramea-encoae iow sampung/MuS.-Ar 
1- FRAMED 



'Note: fcr Digicast pert Bis a host port ' 
That means the. previos. definitions, are not applicable ; 



; define pert B as a host '.port ; ' 

de'f ine RDECCDE^PORT^B^PBC 



•move? #>SC0CI.X:<<SFFE0' 
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: - V \ . " : . . *-"■■ : ■■" -31- : . ; : ■ ■ ' -. ■ . : :*. 

; ; S e: da:a so :ha:'baral5 !bit Hi is 1 - r 

define RD£C0DE_P0R7_B_M_PBD 7 • ; ! ! ! Digicastmovep «»SC800 ; x : <<SFFE4 ' ' 

• » . - MUSICAM- ** . ~ 

define RDECODE_PORT_B_M_PBDDR ; !.! IDigicastmovep^ t»>Sf f be . x : <<SFFE2 ' 

G722 ** ' ' ™ • 

' ' ' define FRADPCM_PORT_ B_M_PBDDR ' ; r ■! IDigicastmovep #>Sdf be . x : <cSFFE2/ 

;define ssi port 'initialization for.' encoder and decoder;;.-. 

define XCODE SSI_M_CRA 'movep *>S6000,x:<cSFFECV 

define - XCODE^SSI.M.CRB . 'movep - tt>Sf 010,x: <<SFFED 

define . *.RDECODE_SSI_M" CRA . 'movep tt>S600C . x: <<SFFEC\ 

define. . RDECODE^SSI^M^CRB . 'movep. ft>Sf 008 . x: «SFFEO' 

.■define sci port initial i2at ion for : encoder and decoder 

-• define XCODE SCI M SCR 'movep.. #>S0002.x:<c$FFFO\ •• 

define- RDECODE_SCI J*_ S C* ■ . '. 'movep #>$0002 , x : <<SFFF0 \ - 

•de'-ne the setting dsp560C2 clock .(PU*. Control -Register) 

\ BMHz crystal to. run a 40 MHz. CS times B. so code a 4 below) . 

define XCODE M PCTL . • 'movep *>S050004 ,x: <<SFFFD* 

' define - RDECODE>- PCTL . ' 'movep H>S050004 .x: <<SFFFD' 

!♦*#♦*♦*♦*♦*♦♦*♦**•***•***♦•**•****************•**** 

• ENCODER . hardware settings for leds and line's- ; . 

; control the encoder devices: 
.; tested inputs of: , 

. ; * host vector 24. •' . ■. ■ 

provides hardware and encoding parameters; none yet 

; host vector 2A- 

psycho table parameter id (0 - 3 1 1 . 

; host sector 2^/ parameter value' for is fror. host vectcr 26 . 

' y:<<$FFFF -., • " • 

; BRAD encode select cUti type.: -: bit 0. '.O-^ICAM 

• LO/HI encode sampling rate ... bit 1 ^f^" 1 ?^.,! " 2 - sw3 

CODAD decode select data type.. ;;bxt 2 O"^ 0 ^;,^'"; f w3 , 

i Se^band wid-n code . " . Vfil S- l^i-^ IE* '.panel,; 

. j S3 3K IS stlS^ ; - ^. ; - ; " • V i ^ i:^! Z\ t^^ i 

•"•Note: for Digicast port B is a host port \ w - 

ThafmeaL the following- definitions' are not applicable. 
■ • M-PBD <x:<<SFFE4) - v" • ^ ' 

) pbi bitrate (i> ' ' bit .1. frame bit CO-low l-feighl. ■ . 

■ ' pb9 • e0 ii) ■ hit .9.C0 flag fcr H221 G722 . 
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:• , V - . .y -32- _ : • . • ..; :•' '. - • 

; cblS « el 'i> ; c:c 1C- C2. flag for H221 *• 3722' *♦ 

; cell • e3 -i":- - bit 12 ABIT flag for K221 •* G722 *• • 

; pbi3 - e2 :i) . biC 13 NOT USED * •• MUSICAM' - 

; pb!4 « e4(i> ' bit 14 HSFFT flag for K221 ** G722 

; set Outputs Of: . 

; : : !Note: for Digicast port B is a host port 

; .That means the following definitions are not applicable. \ 

; '■ ' V- ' : M_PBD (x:<<SFFE4: 

; pb2 ■ coding .io)' bit 2 type of data input' (0-MUSICAM. 1-3*722; - 

; pb3 • . satnprate to) bit 3 PCM sampling rate to-low. ""i-high? ■ . 

; pb4 - emus tof .bit 4 MUSICAM encoding led. (0«off, 1-lit alarm; 

pb5 * eovld to) bit 5 input pem overload led (0-off. l«lic alarm* 

,-. pb€ .« epllalm io). .'bit' 6 -encoding at low samplingled :o«off, -l-liti- 
; pb7.» wd2 iol . "bit 7 watch dog timer . . • 

: pb8 - ;;cal \d't bit 8 anal- to-digit converter resec il«normai, 0-rese: 

; pbll « eralS (6- bit 11 must be . set to 1 

; pb!3 - e2 to), bit 13 HSTTF flag for H221 *.* G722 ** ; - 

. M_?BD (X:«SFFE5) 
•; pc2 - eg722- to) . bit 2 G722 encoding ied (0«off. l»lit alarm) 

; ■ leds across panel: ''"■'. - ... 

Note: .fcr Digicast port B is a host port -' 
;',.* That means the following definitions are not. applicable . 

; ■ 1. MUSICAM encoding led: x:<c$FFE4 bit 4 (amber* 

2. ^3722 encoding led: . x:<e$FFE5. bit' 2 tamber) 
; N/A 9. main phase lock. loop led:- 

10. encoder overload led: x:<«$FFE4 bit 5 (red) . 

. 11... encoding low sampling led: x:<<$FFE4 bit . 6 (amber) 

•:CA1: control the encoder, analog- tb-digital converter reset line 

define SET ADC RESET ' ;bclr #C, y :<not_appl ■; 

define CLR~ADC~RESET . •* ;bclr #C,,y : <not_appl ' 

; LD :'. test, the. MAIN phase lock loop detect - ' 

.define LOCX_COUNT ... .'5*'. • ;S successive locks set the lock led 

define TST SET PHASE LOCK CD Vjset #1 . x : <<SFFES * 

define TST"CLR"PHASE~LOCK"CD 'jclr 1*1 . x : «SFFE5 ' 

define TST - ON PHASE_LOCK_LED_XADPCM 'jset #1, x : <<$FF E5 ' 

. define TST~OFF_FHASE_LOCK_LED_XADPCM 'jclr. *1 , X: <<SFFE5 

; band- width: . 

.-.low order bit- of band-width limit code 
; high order bit of band -width limit code 

V codes: . 00 - level 0 CDQ2000 standard band-widths • 

;: ci - level 1 CDQ2000 standard band-widths 

; - -10 • level 2 CDQ20 00 standard band -widths . 

) /- '-11 - » level 3 CDQ2000 standard band-widths * • 

define TST SET LOW BAND WIDTH CD ' 'jclr" • #C ,y : <nct_appl 

■ define TST~SET~HIGH BAND_ WIDTH CD • 'jcir • «2 . y ; cnot_appl.' 

'def ine 7ST~CLR~L0W BAND WIDTH_CD ■ ' jclr #: . y : <noc_appl * - . 

define TST~ajTHIGH^BAND_WIDTH_CD . 'y 'jclr y : <noc_appl ' 

TOGGLE WATCH DOG CD macro "'. : : \ 
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\. ; encoder host interface' watch dog. t icicle • -* 

; see what the host expects for a dog tickle and act accordingly v 
; if bit M_HF0 (host i/f flag 0) of X:M_HSR (host status register) \ is set:, 
'. set bit M_HF2 (host, i/f flag 2) .of X:M_HCR (host control register:. 
; •-. . else ' '; • * ' : ' > 

; . . clear bit M_HF2 (host i/f flag 2) /of X :M_KCR (host control register! . 

jset . #4 ,x:<<SFFE9, watch dog 00 ' 

bset . #4,x:<<$FFE8 : \. • " . " ' *:■."-'; " 

* jmp <_watch_dog_10 

watch dog 00 * 
~ \ • " bclr '•' #4,x:<<$FFE8 •'. . /• : . . 

_watch_dbg_10 f. *• ;V ■- V ' 

endm " . - ". . ' ;'.•'**■'.- 

. INTERRUFT_HOST_CD macro .'•'"'/.■:..-.. 

;wiggle host interrupt !HACK bit 14" of pert bV. 

.bset."' #14,x:«$FFE4 /- 

nop .' ".- .'* ' , / ••-'/.' . : , : ; ' 

nop ■ 

tnovep y:word_out,x:<<$FFE:B /output leds. for last frame 

nop. : ' •. ... ■.-*." 1 

. nop \ - • : ■ 

bclr- #14 , x : c<$FFE4 . 

endm ■- 

INITJ*OSTJ/ECT0RS_CD 'macro . 

■; initialize the : encoder host vectors with start-up valid settings 
; since. value is zero, use 30 sub-bands (6750 Hzl 

move #>$0, xO . 

move - . xO ,y :host24_word "-■ 
•' move. #>-!, xO 

move : xO ,y:host2A_word 
move #>$0,x0 ■ '"" 
move. xO,y:host2C_word . 

endm - - ■ \\ - 

'. ;GET_SWITCHES_CD macro LOOP 

; copy switches received under host vector interrupt .'- . . . . 

.*.';■-' bits 0-4 allow user set audio band width by specifying- the upper 
• ■ ; -sub-band to be considered for bit . allocation. 
. ; the range is from 4 (900Hz) to 30 (6750 . Hz! • 
; . Note: 30 is the default if the value is .not within the range.. 

move" y:host24_word, xO 
move .'. • x0,y:word_in .. 
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• • -34-. • . 

endm . , 

;3ITRATE, low/high: gee the selected bit rate ; 

■- define TST_SET_LO_BTT_RATE_CD . 'jclr #0,y:<not appl' ' 

define TST_SETJII_BIT_RATE_CD ' 'jclr' #0 ,y : cnot~appl ' - 

; CGDAD,MU5/G722 : get the selected type of decoder input data.; 

define TST_SET_MUSICAM DATA CD *'\' jclr " v #0 . y : <word in / * 

;:'i:28.8 ■ . •"*■.".■""".'"-* *■•■'• : -' 

define TST_SET_G722_DATA_CD ■ . jset ' #0 , y i <not appl ' ' 

. -define. SET MUSI CAM DATA CD • ;bclr #0,y i <not"appi ; . 

define SET_G722_DATA_CD V.bclr #0,y :< nor "appl • 

; ! ! 128.8 ; ' , \ -. . • / 

;SDAD.LOW.br HIGH: get the selected sampling rate 

;. choice pairings (A/B> are 16/24 16/32 16/48 24/32 24/48 32/48 

define. TST SET L0_SAMPLE RATE CD . . 'jclr »0.,y;<not appl' 

define... TST"SET"]HI_SAMPLE2RATE~CD 'jclr . ' *t0,y-:<not~appl'. 

define "SET LO SAMPLE RATE CD -7. . ' ;bclr #0.y:<not appl' 

; 1 ! ! 28 . 8 '~ ' . " ■ 

define. SET HI_SAMPLE RATE_CD ' ;bclr #0, y:<not appl' 

;;■!.! 28 .-8 ' : ■ \ . . . , - .:■ " " 

; MONSTERO : test whether mono or stereo framing selected 

define TST_SET_MONO_ST£REO_CD \ 'jclr #0 . y : <not_appl ' 

define . TST~CIJ0'IONO_STEREO_CD : 'jclr . #0.y : <not_appl ' 

. ;JOINTCE: test for joint stereo framing (if not mono selected above) 

define TST_SET_JOINT_STEREO_CD 'jclr. #0, y :<not_appi 

: define TST~CLR2JCINT_STEREO_CD 'jclr #0,y:<not_. appl.' 

;set which type ISO CRC-16 checksum OLD (0) . or NEW (1! 

define TST_SET_NEW_ISO_CRC_CD 'jclr #0.y:<not appl' 

define TST~CUi~NEW~ISO~CRC~CD 'jclr . #0 , y : <not~appl ' 

;E4 : see if decoder, is framed or. force MUSICAM at LOW sampling rate ; 

define TST_SET_DECODER_FRAMED_CD 'jclr #0 , y : <not_appl ' 

define TST_CLR_DECODER~FRAMED~CD 'jclr. #0 , y : <not~apcl ' 

;BR0 , BRI , BR2 : get the ancillary data baud rate 

define TST SET LOW_BAUD_RATE CD > : 'jclr #0,y:<not appl' . 

• define TST~SET~MID BAUD RATE~CD ■ 'jclr . #0,y: <not~appl' 

define. TST~SET~HIGH BAUD RATE_CD : 'jclr . #C,y: cnot"appl ' 

def ine TST~CLR~LOW BAUD RATE CD ,'jclr . #0.y: <not~appl' 

■■. define TST CLR^MID^BAUD^RATE CD 'jclr #0 ,y : <not~appl '.. 

define. - TST3cLR_HIGH_BAUD — RATE — CD ■ ' jclr #0,y : <not_appl * 

.-summary alarm relay: alarm relay associated, with alarm LED 

define ' SET_ALARM RELAY CD . . ' ;bclr #0,y:<not appl' 

define CLR ALARM~RELAY~CD • ' ;bclr : *0 , y : <not~appl ' . 

define TST~SET ALARM RELAY_CD - . 'jclr #0, y :.<nct~appl ' 
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*. define TST_CLR_ALARM_RELAY_CD ' jc 

; def ine state; for ail ieds "on and off. for. start-up 



# 0 . y : < not _app 1 ; 



define OFF LEDS CD/ • '$000000' 
define. ON_LEDS_CD ; . '5000000* 



;tum. Ieds off : 

' ' define 
. define 
; . define . 
• define 

define; 
. ' define . 
.' define 
■ •' define 
define 
define 
define 
: define ' 

; turn ieds on:. 

define 
" define 
• define 
define 
define 
define 
define 
define 
•. define 
define 
define 
define- 



OFF MUSI CAM LED CD',. 
OFF~G722 LED CD~ 
off~low SAMPLING LED_CD \ 
OFF~OVERLOAD LED~CD ' 
0FF"M0N0 LED~CD " . 
_OFF~STEREO" LED CD . 
0FF~J0IN7 LED CD 

. off~phase~lock LED_CD 

OFF~PHASE~LOCK LED XADPCM 
O FF~ALARM~LED_CD • ' 

0FF~3 ITALLOC_LED CD 
OFF~R£ED SOL LED CD' . , 



ON MUSICAM_LED_CD . . 
ON~G722 LED CD 
ON~L0W_SAMPLING_LED_CD-.; 

on"overload LED~CD 

ON_MONO LED~"CD 
on STEREO_LED_CD 
ON" JOINT LED_CD 

on~phase~lock LED CD 
on~pkase~locjTledjcadpcm 
on"alarm led_cd 

ON~BlTALLOC LED_CD 
ON~REED S0L~LED CD 



;cf f if bits set* ■ . 
-.. ;iit if bits clear' 



"•;bclr- 
' ;bclr 
' ;bclr 
'bclr 
• ;bclr . 
• ;bclr 
* ;bclr 
?bset 
■• ;bclr 
;bclr 
• ;bclr 
'.bclr 



# 6 , y : 
#0,y: 
#0,y: 
*i,y: 
#0,y: 
#0,y: 
#0,y: 
*0,y: 
#0.y: 

*0,y: 

#0.y: 

*2,y: 



<not_appl ' 
<not~appl.' ; 
<noc_appl' ■ 
<word_6ut - 
<not_appl ' 
<nct2appl ■ : 
cnot~appl ' 
<word_cut ' 
<not_appl ' 
<not3appl' 
<n'ot_appl'. 
<word cut' 



•;bclr 
';bclr 
' ;bclr, 
'.bset 
• ;bclr 
' ;bclr 
• ;bclr 
'bclr 
• ;bclr ' 
• ;bclr 
• ;bclr 
'bset. 



*0,y: 
*0,y: 
*0,y: 
n.y: 

#0,y: 
«0,y: 
#0,y: 

#o,y: 

#0,y: 
#0,y: 

#o.y: 

#2,y: 



<not_appl ' ' 
<not~appl' ' 
<not"appl '. 
<word_qut ' 
<not_appl*' • 
<not~appl \ 
<not~appl * . 
<wor3_out '-; 
<r.ot_appl ' 
<not2appl ' 
<not~appl* 
<word out ' ■ 



def ine • SET_LEDS_CD 



• movep y : word_out , y : < < SFFFF* 



»*#•♦*•*•*•********* 



(■*#**#**** 



^.DECODER hardware settings for Ieds and lines 

; control the decoder devices: . 

phase lock loop. signal line: 



; control the decoder devices: 
; tested inputs of : -.■ 
■ y : <<SFFFF 

BRAD encode select data type 
;;; LO/HI encode sampling rate . . . 
;. CODAD decode select data type. 
; MUS/G722 decode sampling rate ; . 
; . SRAD decode bit rate 
;;; 32/48 not used . , 

; ; ; low bit encoder band width xode 
;;; high bit. encoder band width code 
; baud rate code low order bit /. 
; baud rate code middle bit.. 



M PBD bit 6 



;;bit 
; .-bit 
... bit 
" "bit- 
bit 
;;bit 
;.;bit 
;;bit 
bit 
■ bit 



0 (0-MUSICAM 

■ 1 (0-high. l 

2 (0-MUSICAM 

3' (0»high* l 

4 (0-56Kbits 

,5 (0»low, .1- 

8 (0-0,1-1) 

9 (0-0, 1-1) 

10 (0-0, 1-1) 

11 (0-0,1-D 



1-G722) swl 
low) sw2 

1-G722) Sw3 . 
low) sw4 

l«64Kbitsi swS 
high) sw€ 
sw l back panel 
sw 2 back panel 
sw 3 back panel 
sw 4 back panel 
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caud rate code high order bit 

;; .CRC-I6- SIT- .>?' or REH. ill ISC . 



bit '12 (0«C . i«i sw 
;;bit 13. iO-cld. l-new, 



: back par.*! 
sw 6 cac< zi 



i:Note: tor Digicast port B is a host port ' 

That means the following definitions are. not applicable. 
M PBD IX:«$FFE4) 
. M~PBD (X:«SFFE4> -.. 
MB loop back .-.-:" bit C Il-not loop back. 

LD main phase: lock' loop signal line: bit 6 (1-lock -C-nct) 
E2 KS7TF flag f or H221 ** G722 : bit 13 



O«locp back 



set outputs Of: 
::!Note: for Digicast 
That means the 



pbl » bitrate (o). 

pb2 « coding ■ .(??■' 

pb3 « samprate... (o) 

pb4 ' ■ 32k- to:- '■■ 
. pbS - 48k o: . 

pb7 - wdl to: 

pbB * idarst io) 

obS » eO tol 

pblD « el (o) 

pbll « decralS to) 
,pbl2 » e3 io) 

pbl3 » e2 to! 

pbl4 » e4 <oi 

pc2 » alrmrly (o) . 



port B is a host port • 

following definitions are not aoplicable. 
M PBD <x:<<SFFE4) . / ' ' " * . 
M~PBD (x:<<SFFE4i. 

bit 1 determined framing bit rate iO«low. 

bit 2 type of . data to decode |0 -MUSI CAM. 

bit 3 determined sampling rate (Q«low. la 

bit 4 sampling, rate low led-9 (0-off. l«l 

bit ' 5 sampling rate high led- 10 O-cff, i 

bit 7 watch. dog timer iO-clear, l»seti. 

bit 8 digital-to-analog reset (lT.ormal. 

bit 9 CO flag for H221 •* G722 ** 

bit 10 C2 flag for H221, ** G722 ** , 

bit 11 boot top (1) or bottom (0) must be 

bit 12 ABIT flag for H221 1 *• G722 *♦ " : . 

bit 13. NOT . USED ** MUSICAM *• 

bit 14 HSFFT flag for H221 G722 •* . 

M_PBD (X:<<SFFE5) 

bit .2 alarm relay 



i-highJ 
>»G722 / 

iiah.-. ■. 



leds across panel: 

encode 1. MUSICAM data led: y : <<5FFFF bit 0 (amber) 

encode 2. G"22 data led:. y : <<$FFFF bit 1 (amber/ 

■ 3. MUSICAM frames led: y : <<SFFFF bit 2 .-lamberj 

4. G722 input, data led:- y : <<$FFFF bit 3 (amber? 

5.. framing alarm led: y:<<SFFFF bit 4 (red! 

S'. main phase lock loop led: y : <<SFFFF bit 5 -.(green* 

7. decoder overload ied: y :<<SFFFF bit 6 (red:-. 

8. crc bit error led: y:«SFFFF bit. 7 (rec!- 
encode 9. encoder overload led: y : <<SFFFF bit 6 '(red) . 
encde ic . main. phase, lock loop led: y : <<$FFFF bit 5 (green:- 
encde 11 . low (1) vs hi (0) sampling: y : <<$FFFF bit C (amber) 

12. low (1) vs hi (0) sampling: y:<<SFFFF bit 0 (amber*;- 



:CA1: centre!, the decoder 'digital-to-analog converter reset line. 



define 
define 



set dac reset 
clr"dac"reset 



!LB :. test the : loop : back.-. 

define TST SET LOOP BACK_DCD . 
define . TS7~CLR~100P~BACK_DCD 
define . TS7~SET~L00P BACK_FRADPCM 
"define TST^ClR'lOOP'BACK^FRADPCM 

IT:' test the. MAIN phase lock loop , detect 



' bset 
'bclr 



'jelr 
/jelr 
•jelr 
: 'jelr 



.«2'.x:«$FFE5' 
32.X:«SFFE5' 



*0.y :<not_app; 
no.y :<not_appl 
#C ,y : <nct_appl 
* C/y:<nct~app: 
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, . ' • ' ' . : -37- ^ / ' " ■ / ■ - - .' 

"..-define 7ST_SE7_PHASE LOCK DCS ■ • jset -#oVx: <<SFFE5 ,: ' 

^■-^..v-define'- TST.CLR^PHASE^LOCK^DCD ■. ' jcir #0 : . x: <<SFFE5 ' -* 

; TOGGLE_WATCH_DOG_DCD macro 

■ - ; : encoder host interface watchdog tickle' 

' ;see what the host expects, for a dog tickle and. act accordingly ' 
. ; if bit M_HF0 (host i/f flag 01 of X:M_HSR (host status registeri isVset. 1. 

■; . . set~bit M_HF2 {host i/f flag 2) of.X:M_HCR' (host control register) ~ 
V else ~ . . * 

: . V ■•.'"clear bit M_HF2 (host i/f .flag 2) cf ."X:M_HCR (host control . register! . .- ; 

" -jset" *' #4,x:<<$FFE9,_watch dog CO ■ 
. .. bset .'. #4,X:«$FFE8 - ~ •. 

jmp r\ <_watch_dog_10 

watch dog 00. /',"-'- ■ 

" fcclr • .;.#4.x:«SFFE8 . 

_watch_ dog_10 " " . 

endm ' • _ 

INTERRUPT_H0S7_DCD macro . 

; wiggle host interrupt ! HACK bit 14 'of port b 

'; . bset . #14,x:«$FFE4 

•nop 
' nop- 

movep.. y:wqrd_out,x:<<$FFEB ;output leds for last -frame 
nop 

' nop ... - " ' ■ • 

bclr . ..#14,X:<<SFFE4 

: ;; endm ' :•" 

INIT^HOST^VECTORS^DCD macro 

; initialize the encoder host vectors with start-up "valid settings 

move. . #>$0,x0 • ' . 

move. x0,y:host24_word , 

endm/ ■ - ' . 

GET_SWiTCHES_DCD macro LOOP 

; copy /switches received under host vector interrupt 

'■[ : ' move . : y :host24_word,x0 . " \" ' \" ■".■.*•.". ' 

moye x0,y:word_in 

. endm \ - • . ' ' 

;BRAD, low/high: get. the' selected \bit rate.'/. 
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*:28.6 



define 

define 

'define. 

define ' 

define 

define 

define 

define 

define 

define 

B 

define 
define 



TST SET AUT0_BIT_RATE DCD 
- e "-~CLR~ALTO BIT RATE~DCD 

SET~A*JTG~BIT~RATE~FRADPCM 

'clrIauto~bit~rate3fradpcm 
"ss et auto bit rate fradpcm 
■sclr"aitto~b:t~rate"fradpcm 
"set lo bit rate dcd • 
"set~hi~bit~rate7dcd 
"set lo~bit~rate_fradpcm' : - 
~set~hi~bit~rate fradpcm . 



TS' 
-c 

TST' 
TST 
TST 
TST* 
TST 
TST 
TST 
TST 



set lo bit rate dcd 
set~ki~bit~rate~dcd 



' jclr 
'jclr. 
' jclr ' 
•jclr 
' jcir 
'.jclr 
vjclr ■ 
•jclr 
.'jclr 

; ;facl: 
v;bcl: 



8G . y : <r:ct_appl * 
. tic . y : <r.at~apcl ' 
80 . y : <ncc~appl ' 
80', y : <nct~appl* 
80 ,y : <not^appl : 
80, y : <not~appl' 
. 80, y-: cnot^appl' 
80 , y : <nct~appl ' 
80. y: <nct"2appl ' 
8C . y : <nct~appi ' 

80 .y : <not_appl' 
80,y.:<nct~appl' 



: 128.6 



;C0DAD.M0S/3722 :.' 

. define 
■ ' define 
•define 
define 
. define 
define' 
define - 
- define 
•define 
• define 
; ! : :2S.B 

define 
-' define" 
i : : :26.s 



get the selected, type . of '.. decoder input dati 



TST_SET ALTC CODED_DATA_DCD • . .' ' jclr 
TST CLR~AUTO~CODED DATA DCD.. 'jclr 
TST~SET~A*JT0 CODED~DATA~FRADPCM: ' jclr 
TST"CLR"AUTO"CODED3DATA"FRADPCM 'jclr 
TST~SSET AUTO CODED DATA FRADPCM 
TST S CLR~ AUTCTCODEZT DATA FRADPCM 
tst"set MUSI cam DATA_DCD~ .'.'•• 'jclr 
TST"SET"G722 DATA DCD " " 'jcir 

TST~SET"MUS:CAM_DATA_ FRADPCM . 'jclr 
T S7~ S ET_G 722 _D ATA_FRAD P CM \ jclr 

SET MUS I CAM_DATA DCD , "■ ' ;bci: 

. SET~G722 DATA_DCD ; : ';bcls 



80,y : <nct_appl' 

80 ,y ': <nct~appl' : 

80, y :<nct_appl' 

8C ,y :'<nct~appl '■"*". 

' 3 szir 80,y:<nct_appl' 

' 3 sclr 8 2.y:<not_appl , 
■ 80,y ; <nct_appi' \ 
. 80 , y ": <not~appl' • 

80 .y : <not_appl.V 

80 ,y : <not~appl'. 

80, y : <not_app!' 
80, y :<nct~appl'. ' 



•S^Al low or high : ■ oet the selected sampling rate 

1- chc Ice pairings (A/Bl are: 16/24 16/32 16/48 24/32 24/48 32/43. 



d*f ihe ■ TST SET_AUTO -SAMPLE RATE_DCD 
define TST~CLR A r JTO~SAMPLE~RATE_DCD 
define TST~SET~LO SAMPLE RATE_DCS 
define TST~SET~KI~SAMPLE~RATE_DCD 



:.2 8 . S 



define SET LO SAMPLE RATE_DCD 
de f ine . SET~KI~SAMPI£>ATE_DCD 



;•: :.:'2S.B ' " 

;E4: inform the encoder:. .". 

" .defme SET_DEC0DER_FRAMED_DCD ' 

;DSW? : mute the decoder output 

: define TST SET MUTE OUTPCT_DCD 
'"define TST^CLR'mUTE^OUTPUT^DCD 



'jclr. 8C ,y : <not_appl' 
'jclr 80, y :<r.ct~appl' 
•jclr - 8 0 , y : < not "appl ' 
'jclr . 80,y:<not2appl' 

' ;bclr : 8C,y:<not_appl' 
• ;bclr. .80.y:<nct3appl' 



";V;bcir - 8G.y :<nct_appl ; 



•jclr • #C.y :<not_appl' 
'.'jclr 8 C f y : <not^appl ' 



;DSWS,DSW5:. test, the mono output channel requirements 



define 
define 
define 
define 



TST SET MONO ONE CHANNELED CD 

tst~clr~mono~one~channel_dcd 

tst~set~mono~left_or_right_dcd 

tst~clr~monc~l£FT_or_rigkt_dct 



'jclr • -8C,y:<not_appl' 
jclr . . 80. y : <nct_appl' 
'jclr' .#0,y:<not_appl' 
.'•jclr.' .83, y:<r.ct~appl.' 
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be activated sometime in CDQ10C0. 

. define TST SET FADE OUTPUT DCD 

define TST~CLR~FADE~OUTPUT~DCD 
define.. TST~SET~FADE~JP DCD~ 

define ' TST_SET~FADE~DOWN DCD 

define. FADE INCREMENT '1' - 

.define" FADE~SOFTEST J '40' . 

■ define FADE START_UP '20' 

• define- FADE~FRAMES ■ , '2' 



•jclr #0,y:<n6t_appl' 
•jclr *»0 . y:<not appl * 
•jclr' *0,y:<not~appl' 
•jcir #0,y :<nct_appl ' 
;2 Db per frame ~ 
;max of down 80 Db 
;max of start up 4 0 Db 
;fade every N. frames 



;LINSEL0, LINESEL1 : test if line 1 and/or line 2 is selected 



define TST SET LINE 1 SELECT DCD 'jclr 

define" TST~SET~LINE~2~SELECT~DCD ; . .'jclr 

define- TST~CLR~LINE 1 SELECT~DCD 'jset 

define TST CLR~LINE~2~SELECT~DCD --. " '.jset 



.#0.y:<not_appi\ 
#0,y:<not_appl '* 
#0,y: <not_appl 
#0.y : <not_appl \ 



;DIAGNOST {ANCELDTA): test whether diagnostics programming is- to be executed, 



define 
define 



■ TST_SET_D I AGNOSTICS DCD 
TST CLR DIAGNOSTICS~DCD 



; BR0 , BR1 , BR2 : get the ancillary data baud rate 

define. TST SET_LOW BAUD RATE DCD 

• define- TST2SET_MID~BAUD~RATE~DCD \ 

define TST SET_HIGH_BAUD_RATE_DCD 

define. TST~CLR LOW BAUD RATE_DCD . 

. define TST_CLR~MID~BAUD^RATE_DCD 

define TST CLR~HIGH BAUD RATE DCD 



*'jclr #0,,y:<not_appl? 
'jclr #0,y : cnct^appl ' 



•jclr #0,y:<nct_appl' 

'jclr #0,y:<nct3appl' 

'jclr #0,y:<not~appl' 

'jclr . #0, y: <not~appl ' 

'jclr - #0, y:<not"appl' 

'.jclr . #0,y:<not_appl' 



;BR0 , BR1. BR2 : get diagnostics code. when DIAGNOST (currently ANCELDTA) is set- 
; dip switch interpretations for diagnostic operation 



define TST SET LOW DIAG_CODE DCD • V . * jclr 

define TST~SET~MID~DIAG_COLE~DCD 'jcir 

de f ine TST~SET~HIGH_D I AG_CODE_DCD . 'jcir. 

define TST~CLR~LOW_DIAG_CODE DCD 'jclr 

define TST CLR MID DIAG_CODE~DCD 'jcir 

define: TST~CLR~HIGH_DIAG CODE DCD. - 'jcir 



#0,.y : <not_appl ' 
1*0 , y : cnot^appl ' 
#0, y : <not_appl ' 
t*0, y : <not~appI ' 
"-" #0,y:<not_appl' 
fc0,y:<not~app*l' 



.-summary alarm relay: alarm relay associated with alarm LED 



define SET ALARM RELAY DCD .- . 

define. CLR~ALARM~RELAY~DCD ■ 

define TST_SET_ALARM RELAY_DCD 

define TST_CLR_ALARM~RELAY DCD 



. ' ;bclr 
* ,-bclr 

.'jclr 
'jcir. 



#0,y:<not_appl' 
#0,y :<not~appi' 
#0iy:cnot~appl' 
#Q,y:<not_appl' 



rdefine state for all leds on and off. for "start -up. 



define 
define . 



OFF LEDS DCD 
ON LEDS DCD. 



'$00' 
'$ff. 



;of f if bits set' 
; lit if bits clear' 



; turn leds off : 

. define ■ 
define- 
define 

. define 



OFF_FRAME_LED DCD . 
OF? CRC ERROR^LE^.DCD . , 
. OFF~OVERLOAD LED_DCD 
OFF~PHAS£ LOCK_LED_DCD. 



' bclr ' #1 , y : <word_out * 

'.bclr' #2.y :<word"out ' 

'bclr . 83 f y: <word~out ' 

'bset . 84 ,y : <word~out ' 
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define OFF REED SOL LED DCD ' 



define * OFF LC BIT RATE_LED DCD 
. . define V.OFF~HI~B ITERATE LED~DCD 
define 0 FF~MUS I CAM_LEP~DCD~ 
define OFF~G722 LED_DCD 
. define OFF2PHASE_LOCK_LED FRADPCM ' 
OFF_PHASE_LOCK_LED_MACRO_FRADPCM . macro 
■ bclr #5/x :<Eram_Mem 
move x:<Eram_Mem.xO 
- movep xO,y:<<SFFFF 
endm 

OFF OVERLOAD LED MACRO FRADPCM macro 



'bclr #5'. y:<word ouz' 

* ;bclr #C,y: <not_appi • 

' ;bclr #C,y : <not_appI • 

' ;bclr 8C,y:<not_appl • 

' ;bclr #C,y : <not~appi' 

.'■;bclr #0,y: <not~appl ' 

;surn cf f red. led * 



bclr 
movep 
' r • • endm 

"define 
.define, 
define 
define 
define 
. define 

;turn leds on : 

define 
define 
define 
define 
define 



#6/x:<Eram_Mem . 

x : Eram_Mem7y : <<SFFFF 



; turn off overload led 



OFF LO S AMPLE_RATE LED_DCD 
OFF~HI~SAMPLE RATE~LED DCD. 
OFF~MONC LED DCD - " 
OFF~STERSO LED DCD 
OFF~JOINT_LED DCD 
OFF~ALARM LED~DCD . ' ■ ■ . 



ON FRAME_LED. DCD . 
ON~CRC ERROR~LED_DCD 
ON OVERLOAD LED DCD 
ON~PHASE LOCK LED DCD 
ON REED SOL LED DCD 



define ON LO BIT RATE LED DCD 
. define . ON~HI~BIT~RATE~LED~DCD • 
define ON~MDSICAM LED~DCD~ . . 
define ON G722 LED_DCD 
define . ON~PHASE LOCK LED FRADPCM 
ON_PHASE_LOCK_LED_MACRO_FRADPCM macro 
~ . -.- bset ~ tt5,x:<£ram_Mem 
move- . x:<Eram_Mem,xO 
movep ; xO,y : <<$FFFF 
endm 

ON OVERLOAD LED MACRO FRADPCM macro 



' ;bclr_ #0,y:<riot_appl' 
' ;bclr #0,y :.<not_appl* 
' ;bclr < -#0;y:<not_appl' : 
' ;bclr 80,y:<not_appl' 
' ;bclr fcO,y:<not~appl.' 
; bclr ttO.y: <not_appl ' 



'bset #l,y:<wprd_ouc ' 
'bset #2 , y : <word_out ' 
'bset ' #3 ,y : <vord~out ' 
'bclr. #4 , y <vord~out ' 
' bset #5 , y : <word~out ' 

* vbclr #0,y:<not_appl' 

;bclr #0,y:<not_appl ' 

' ;bclr #0 r y:<not3appl' 

' ;bclr #0,y : <no*t_appl' 

' ;bclr to, y:<not~appl' 

;tum on red led 



; turn on. overload led. 



bset . . #6,x:<Eratn_Mem 
movep x:Eram - Mem7y:<<SFFFF 

endm.' - • " 

define ^ ON LO SAMPLE RATE LED. DCD . . - ;bclr 

define ON~H I~SAMPLE~RATE~LED~DCD ' ;bclr 

define ON~MONO LED_DCD \ . # ;bclr 

define . ON~STEREO LED DCD. ' ;bclr 

define , ON~JOINT LED DCD - . • ' ;bclr 

define ON~ALARM~LED DCD ■ ' ;bclr 



. #0>y:<not_appl'. 
#0,y:<not~appl' 
#0,y:<nbt3appl' 
#0,y: cnot^appl' 
#0,y:<not3appl' 
#0,y:<not~appl* , 



define SET_LEDS_DCD '. 

define TST SET CRC_ERROR_DCD 
de f ine TST3CLR~CRC_ERROR_DCD 



' movep y : word_out , y : < <$FFFF * 

. 'jclr #0,y:<not_appl' 
'jclr . #0,y: cnot^appl' 



/define macros for getting the. encoder and decoder external switches 



GET BIT RATE CD macro 
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; encoder interpret . the external. switches for ; the framing" biz rate . 

■ move • ■ #>RATE_LO. xO . > ' ; start with lower KBit rate 

-;!-!! 28. 8: force low bit rate 

• ' 1 ! : TST SET LO BIT RATE CD, grte_a 

!•!!! move ■. ~#>RATE~HI,xO . . " . " ; otherwise', use higher KBit rate 

; \ n grte a " • ' ■ ' ' 

. . " .move x0.x:tstrate set selected rate . 

■ - ■ -.; endm ' * ' . - ' ." * : 

GET_FRAME_TYPE_CD macro ^ 
.; micro encoder only handles mono frame type ;'"'.• 
move 1 . #>MONO,xO- 

move : xO,x:tstf rme . \- • 

. determine the NEW or OLD ISO CRC- 16. specification " V 

V; bclr ttCRC OLD_vs NEW, y : <stereo ;0*OLD ISO specification 

... ;1-NEW ISO specification. 
TSTJ^_NEW_ISO_CRC_CD._gtyp_a . ; ; if; not; use NEW CRC, done 

• MiniCodec board' FORCE new ISO crc . 

bset #CRC OLD_vs_NEW,y:<sterec : ;i»NEW ISO specification . 

;;;_gtyp_a - ' ;. " •;../;' ' \" - . . [■ 

; default to old CCS CDQIOOO's ' ■ 

bset #0,x:tstoccs v ; 1-old CCS " .CDQ'2000 • s . 

endm ■ 

GET_CODE_TYP£_CD macro - 

; encoder interpret the external. switches for the type of coded output 
MUSICAM f rames or G722 

;!!!28.8: force MUSICAM . 

■'!! TST SET MUSI CAM_DATA_CD , _gcde_a . . ■ '■' " 

bset ~#0,x:tstcode .-indicate G722 output 



; ! r i 
; I ! I 
; ! i I 
.iii 
. i it 

r .• • • 
.III 



OFF MUSICAM LED CD ■. .'-turn off MUSICAM indicator 
OFF~LOW SAMPLING LED CD * ; turn off low sampling rate indicator 

ON G722~LED CD. \ - . } turn on G722 indicator ' . - 

SET G722 DATA_ CD /'- ;S*t line for encoder G722 

jrap" '■ <_gcde_b 



' ON MUSICAM LED CD ■ . '■" ' 'i turn on MUSICAM indicator 

OFF G722 LED c£ ' :,-tum off G722 indicator 

SET~MUSICAM_DATA_CD , .; set line .for encoder .MUSICAM 

; ! ! !_gcde_ b * . 

.endm- . . • • ' • ' 
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GST_SAMPLE_RATE_CD macrc •" ; 

; micro encoder handles low and high 'sampling races 



i t i 



28.8: force low sample rate . 

TST SET_LO_SAMPLE_RATE_CD,_gsmp_a . . 
;»!: bset ~#07x: tstsmpl . indicate high K sampling, rate 
'•!;: • OFF LOW_SAMPLING LED CD.'. - ;turn off low sampling rate indicator 

■-•:»: . " SET~HI_SAMPLE_RATE_CD , >' . ; set line for high sampling rate- . 
; ! « : ■ , jmp~ ~ ' <_gsmp_b 

; ! ! : gsmo a s - 

■;!!:" TST SET G722 DATA_CD , _gsmp_b ; / ;do not turn on if G722 ■.■ 

ON LOW SAMPLING_LED_CD " ;tum on low sampling rate indicator/ 
SET_LO~SAMPLE_RATE_CD , . ;set. line for low sampling rate. 

gsmp b 

" " endm. • ■/' ' ■ ■ 

•'GET_BAND_w:dTH_CD macro; - 

; encoder interpret the external .switches for the band-width code '[ 
i. to set band-width based on frame. bit rate and type of framing 

;!!! TST CLR LOW BAND_WIDTH_CD,_gbnd_a. ; check switch to interpret as 0 
*!!! bset ~80,x:tstband ~- ~ ~";set the band width code low bit on .. 

* .* • ■'. • ■ . ■ * ' ■ ■ . . " ' . ' • ■ - 

; * ! ! gbnd a 1 

; • 1 : r TST CLR HIGH BAND WIDTH CD , _gbnd_b .; check switch to interpret as 0 
•!!: bset" ~#1 ,x7tstband . ~ Tset the band width code : high bit on 

-.; 1 ! !_gbnd_b 

; bits .0-4 allow user set audio band width by specifying the upper 
- ' sub -band to be considered for bit allocation. 

' the range is from 4 (900 Hz) to 30 (6750 Hz); 
. * Note: 30 is the default if the value is not .within the range ... 

move \ y:word in,x0 .. . . ;get sub -bands, for y : <usedsb 

move x0,x:tstband ' ;put value in the new i/p 

]•!!« move x0,y:bndwdth . ;& put value in the current 

' • endm. ' . /. : 

GET_BAUD_RATE_CD macro" ;"" 

encoder interpret the . external switches to get ancillary data baud rate ; 

TST CLR LOW BAUD RATE CD.' gbaud a ; check switch to interpret as 0. - 
bset "#o.x:tstbaud ~ . ~;set the baud. rate, low bit on . 



Ill 
.ill 
. t i 
.lit 



i i- qbaud a- 

«•• TST CLR MID BAUD. RATE CD, gbaud b ;check switch tc interpret as 0 
!i: bset ~#i,x:tstbaud " ~ ~;set the baud rate middle. bit on 



. i i j 
.tit 



! gbaud b * ' " „ 

TST CLR HIGH BAUD RATE CD/ gbaud_c ;check switch to interpret as 0 
i ! ! bset ~#2.x7tstbaud --; ;set the baud rate high bit on . 



; 1 ! !_gbaud_c 
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endr. , ; ' .'*.'-".'. '\ 

; decoder external switch macros ;..-.."■•.. 

: GET_s:TJlATE_DCD" macro • : /:" 

; decoder" interpret the external switches for the .framing bit rate, 

'; begin with raw code, for .lower." framing bit ..rate. ■ clear auto; select flag. 

••move tt>RATE_LO,xC- ■ *] 

;:: 128.6:'- force low bit rate 

• ;\\\ . bclr - ■. #ACTO_SELECT_BIT_RATE, y : <ctlf igs 

; ! • move Sautorate, r0~ . - " ;addr .of curr bit autc select .state ; 

: : : : ; if net auto. select switch is set> go by .the .selected switch setting 

. TST_CLR_AITTC_5:T_RA7E_DC3.._grte - c ;if net auto", select . ; test other sw : 

] i : : ;if in '-loop back; set - the, bit rate to high Kbits 

'.-!-!::• TST CLR LOOP_BACK- DCD. grte" a.' ;if 'no't loop, continue y : 

move ~#>RATE KlTxC -;sei higher KBits raw cede 

' ;!'.:; ■; jtnp < grte~e. ' •* .-install .chosen bit rate • 

; ! ; _grte_a " 1 

see if already in : auto "select, bit rate . - 

• ! ! ! jset #o. x: (rC) ,_grte_b \-if already, in auto, skip next. 2 stmts 

set save code as* in auto select -bit .rate and indicate switch changes • ' 

* * i * . . . ... * • , • . 

\ : : : •. bset "• #c.x:(rG) -.-bit 0 • l - AUTO SELECT- - • 

bset- *4 . y :<not_appi vindicate a switch change 

* • > i . ■ . .■ ' . ■ ■ •. • ■ . • ' 
i :::_grte_b . . "v. 

* * • • ™" * . ■ . . . " . ■ 

;set control flag to perform auto . seiect cf bit rate. . 

WW.. !' bset # AtTTO_S £LECT_B I T_RATE , y : < c 1 1 f 1 g s 

- bset #c f x:autosei 

. move.. y:frmrate.xO ■ ;use last rate t= start 

jrap • <_grte_e 

W W ; set the bit rate 'as : selected by; the switch- " 
*■■••; : ; :_grte_c ... -, 

•l!*.; see- if currently in auto seiect bit rate 

iclr- #C.x:tr"C, grte_d ,•; if hot' in 'auto,' skip, next 2 stmts ;. 

;!::;clear save code as NOT in auto seiect . bit rate and indicate switch changes 

bclr \'*0.X:(r0-l -"■ :bit 0 - J - NCT AUTC SELECT 

• bset *4!y!<nct appl... ;" .-indicate a switch change. ."' * 

• ; : : ! arte d V 1 . * 
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; : : ;see :f low cr high .bit. race selected, if keep - lower Krit raze 

'.' ■ TST_SET_LO_B IT_RATE_DCD , _grte^e . 
; ! ! ! '.. move. ""#>RATE2HZ .xO .-.otherwise, use higher KBit rate " 

• : : : grte_e ■ . ' - ■ »" 

~* move ' xO , x: tstrate ;set selected rate. . 

endm ; / , • . ■ ' \ , , •■ • 

GE7_FRAME_TYPE_DCD macro. 

.• decoder interpret the' external switches for the frame type 
, (not applicable) ' 
• ; however, set the current mono frame output channel parameter 

; : clear the mono .but both channels flag and set the flag, if needed 

bset #M0N0_0wT BOTH, y : <ctl figs % ; mono out. both channels*' 

TST CLR_M0NO_ONE_CHANNXL_DCD , _gf nr._a 

bclr ~#M0N0_0U7_B0TH,y :<ctiflgs ~ : - ;mono out. one channel. 
_gf rm_a : ■ 

; -'clear the "mono output one channel flag. indicating LEFT . 
and set the flag to the RIGHT channel" if needed 

bclr #M0N0_6U7 CHANNEL, y:<ctl figs ;mono one channel out LEFT 
TST CLR MbNO_LEFT"OR_RIGHT_DCD #- gfrTO_b 

bset ~#MONO_OUT_CHANNEL , y : < ctlf lgs"" . ;mono one channel out. RIGHT. 

_gfrw_b 

endm -* 

■ GE7_C02E_TY?E_3CD macro . 

; decoder interpret the external switches fcr the type cf coded input 
; ; MUSICAM frames or G722 . 

; starts out as KUSICAM (default) \ clear auto select flag 
; : 1 :2B.B: force MUSICAM 

;:•! . bclr . ' # AUTO_SEL£CT_DATA_TYP£ . y : < ct 1 f lgs 
move. •'" tiautocode.rO 

• : : : ; if not auto select switch is set . go by .the selected switch setting 

.lit • • * ' ' • * " . 

TST_CLR_AUT0_C0DE3_bATA_DCD , _gcde_b 

..lit* ' *■ ■ _ . ' . • . s ' _ . ... • ./ ' . ... 

. • : :i;if inloop back.' leave the data type as KUSICAM '•. - 

.iii. * - • • . • ' ■ ' ■ " 

;!!!* TST SET LOOP BACKLOG: , _gcde_d ;if in loop, done selection 

..iii,*. .. . - 1 . * * .* , .-.-*. 

; ! i : ;see if already, in auto select code type . 
-..lit ' . *■'.■■. * 

■ ■ • : ■ i j set" #0 , x *. ( rO . \ _g£de_a * ; if already in autc. skip next 2 'stmts' . 

•:::;set save code as in auto select code type and indicate switch changes > 



SUBSTITUTE SHEET (RULE 26) ^ mm pL Jl 



WO 96/32805 



PCT/US96/04S35 



' :.- -45- • ' • 1 : * :'. " 

"bset " • «c.x':-irc*. • :' c .;b:: c ■ i ■ a~C select 

, bset' *4.y :<not_appl .. . ' .-indicate a switch change 

; !.! :_gcde_a : '■•*•,'■';*.;"* * 

;:::.set control flag to. perform auto -select of bit rate' - 

bset . 3AUTO_SELECT_DATA_TY?E, y : cctlf las 
■ ;!:':'• bset . frO ,x:autosel~ - ..." * _ ■ '■ 

set to. auto select continue' with previous type of coded, data 

. i # t . . . ■ ' . *..•■"- 

. : : : ■ move . y nputcde.xO '. 

.; : : : move' xG..x: tstcode ..-.indicate last input type 

;. :: : . jmp\. ;<_gcde_d - "■ • ; v . - .* "\ 

"; i-i ijcde.b ' V": • *". -.*' 

•::'!;see if currently in auto select code type- 

jclr . *0,x: !rC. ,_gcde_c ;if not in auto, skip next 2 stmts - 

• it* < • . . * - 

-clear save code as NOT in auto select code type- and .indicate sw^zch chanaes. ' 

; !.!: bcir . *0,-xV<rO> ... ;bit 0 « 0 » NOT AUTO SELECT 

: : : ! . bset ... #4 ,y : cnot_appl ; .-indicate a switch change 

; : : : gcde c'- " ■ ■ • '. •* 

;! !I~ . TST_SET_MUSICAM_DATA_DCD,_gcde_d ■ 

; ! ! :. bset ~#0,x: tstcode" ~ ." ^indicate G722 input .; 
; !•■; :_gcae_d 

• ' • • ... . - ' . . . ." ■ * ■ . 

■;!.!;;; indicate the switch selection to encoder for data type 

TST SET ENCODE G722_DATA DO, gcde e ..-if G72I , set that for encoder 
;:!!;; SET^ENCODE^MUST CAM_DATA_DC3 " /;tell encoder MUSI CAM 

-;.!!!;.;• jmp • <_gcde_f ■ - 
.•if.. — ~~ . 

; ; : ! ; ] gcde e 

SET~ENCCDEJ3722_DATA_DCS. " ... ;tell encoder :G722. 

;!!:• ;_gcde_f 

~ endm ■ 

CST_SAMPLE_SATE_DCD macro 7 ■ . 

; decoder interpret the external switches for the sampling' .rate 

; if select switch is set. see which type of coded data is being input ■ 

; begin with the code for low sampling KHz rate, clear auto. select flag 

, move' , fcO, xO ' 
;:::26.5: force low samole rate ' 0 ■■ 

. bclr : - * AU?0_SEI^CT_SAHPLE_RATE y recti figs . 
.;•!! move fcautostrxl/rO : •' r 

";!!!;, if not auto select switch is set; go* by the- selected switch setting 



SUBSTITUTE SHEET (RULE 26) 



WO 96/32805 



PCTAJS96/04835 



TST_CLR_AtrrC_SAMPL£_RATE_DCC . _gsmp_b ; i f r.Dt au;c select, test ether s w ' 

: : : ;.if in loop back, leave" the low sampling: rate selected ■" 

t • i . • , • * * . .*.-.. -* ■ • . 

; - TST - SET_L00P_BACK_DCD,_gsmp_d . ; if in loop, done selection 
:::.;see if already in auto select sampling rate 

jset , *0,x:.(rO) ,_gsmp_a ;if already in auto', skip next" 2 stmts 

set save code as in auto select sampling rate and indicate switch changes 



■ I ! ' 
. i t i 



t i 



;■!:!■.' bset <*0.x: (r0) . .. ;bit 0 « 1 • ' ACTO SELECT 

! ! ! - bset ... #4.y:<not_appl '■■ " : - indicate a switch change • 

■ 1 ! ! ■ * *" ' • - * - • • ■ . -'*'.. 

; ! : :_gsmp_a . '.r- ■ 

.*::: ;set . control flag to perform auto select of- sampling rate . . 

. !*!!: , bset *AUTO_SELECT_SAMPLE - RATE.y:<ctlflgs" : 

;!!! bset . #0. x:autosel~ ' ■ ~ . ' 

move ' y rsraplrte, xO .' • " .-use last sampling rate. to" start. 

; : : ! . jmp <_gsmp_d 

.iij . — 

;!!!; set . the sampling rate as selected by the switch 

* . i i • , ■ „ . " * . , .*."..• . 

• : • • : _9 STn P_b 1 . ' " 

'; : !!;see if currently in auto select sampling rate ". 

. ; i » . . -. ' . . . - „ * 

;!!!.. jelr. #0,x: irdl ^gsmp^c . if not in auto, skip next 2. stmts ; . 

• 1 * . f - . *..■*■'. ■ • - * •■- " 

;!:!;clear save code as NOT in. auto select sampling" rate and indicate switch. cha j 

;::! bclr / #0.x:(r0j ;bit 0 «0 ■* NOT AUTC SELECT 

bset \ #4.y :<not^appl ..-indicate a switch change 

* i i i * • ■ . • " . , 

V: : i_gsmp_c 

.; !!. : TST_SET_LO_SAMPLE - RATE_DCD. - gsmp_d " " ' 

move ~#>T,xO " ~ • " Tcthervisei use .high rate 

-;■! : !_gsmp_d 

' .~ . move xO ,x:tstsrapl 

;!!:,•;; indicate the . switch selection to. encoder for data sampling, rate 

.;!!.!;•■- TST SET ENCODE KI_SAMP_RATE DCS.^gsmp e .; if high rate, set for encoder 
;!!!;; SET~ENCODE_M_SAMPLE_RATE_DCD . .. " , " vteil encoder low sampling rate 
;!!!;; jmp". . . . <_gsrap_f . • . 

•; : : ; ; gsmp e • 

-;::!;;" SET~ENCODE_H I_SAMPLE_RATE_DCD . •'tell encoder high sampling rate 

; ! !■ ! ; ;_gsmp_f . . ■ 

" endm • . - * : : . 

GET_BAUD_RATE_DCD macro 

; decoder interpret the external switches to get ancillary data baud rate- 
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.. V TST CLR_LOW_BAZ^_RATE_DCC,_gbaud_a ; check switch to interpret as :- • 

bset . x : tstoaud. " . Tset the baud rate low e-iz'cr. • 

obaud a 

' . -7ST CLR_MID_BACD_RA7E_DCC , _gbaud_b .-check switch to interpret as 0 ■ 

bset " x: tstbaud " Tset the baud rate middle bit' or. .- 

obaud_b 

.;!!;"" TST CLR H I GH^BAUD_RATE_DCD , _gbauc_c : check switch to interpret as 0 
= ' '. bset • ~t2, xTtstbaud " • ..-set the- baud rate high bit or. • 

. t i » • . ■ _. * ■ ■ ■ ■ . '. 

" ' : • • • _gbaud_c 

. * ■ ' en°>. ; • ■• ■ ' " 

.GET MSTH0D_OFERATION_DCD macro • . "'•,. '.>; 

.* . decoder . get external switches for method of* operation: NORMAL vs DIAGNOSTIC . 

endn- . . ; 

GET_tlAGNOSTICS_DCD macro ,v . 

decoder get external switches for diagnostic operation:: NORMAL . vs .DIAGNOSTIC 

;i::V if switch set for normal operation, skip rest of this interpretation 

; : TST'CLR_D 1 AGNOSTICS_DCD, _gdiag_c. ; switch set for normal or diagnostics 

•.:: ! ; set the diagnostic code bits _ 

: TSTCLR LOW D I AG CODE DCD._gdiac_a ; check switch to interpret as :G\ . 

bset. ~#0,x : tscmeth . " ' Tset diagnostic code low bit on 

*.'.";: adiaa a 

" ;!■:"".. TST CLR MID DIAG C0DE_DCD. gdiag_b .-check switch to interpret as . 0; . - . 
. : : : i bset x: tstmeth . Tset diagnostic code middle bit on. . 

: cdiac b . 

; !: :"" TST CLR HIGH DIAG CODE DCD,_gdiag_c .-check switch to interpret as Z 
• i bset. ~*2. xTtstmeth. " ; let diagnostic code high bit or. 

.* : : :_gdiag_c 

endm •.-.'■*". 

. V; ■ ■ VER I FY_ AITTC^SAMPLE mac rc ■ 

;il :Cigicast : ■ NOT APPLICABLE 

/ * • endn. ' ' ' ..' - - .'*•■ :'. - " 

;£cr CDC2C12 start with flag 'set xo decode MPEG- ISO frames: 
" .bit 0:". I * MPEG-ISC 
' ] ■■* • old CCS CDQ'S • 

. ; bit 0: C - MPEG-ISO at 240CC sampling 

. . i . ©Id CDQ10G0 (MICRO) frames at 24 003 .sampling . 

■ TDO_MAKY_SYNC_ERRORS_DCD macro ' / ' 
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'.- • '. :. " :; ";'■■*" • " : - "-. ; -48 : : • v " "'■ ; ; . 

;how tc handle the set of the REFRAME flag after toe mar.y successive . 

svr.r catterr. failures . . 

;: "always do old CCS CDQ's -. 

bset #0.y:oldccs - .only handle .eld. CCS C2C s 

bset ■'. #l,y:oldces ;old CCS CDC frms » 14.4 K samel ; 

■ jmp " <restart. .-restart. " as eld CCS CCC'.s J 

endm . "-■.*" ■- , y. ■ " " . ^ 

TCC_MAN"Y_b:T_ERR0RS_3CD macro . : ; - ' 

,iow to handle the set of the RE FRAME flag after too menay successive 
• ;* ' CR'C-16 bit -errors . . - : 

; . if the oldecs bit is net set. switch from MPEG- ISO to eld CCS CX's"':.. 
if old CCS has already been tried, restore MPEG-ISO and . reframe 

^ move ' ' #oidccs.rO : ;to test oldecs flag- :bit ci 

, nop ■;" 0 » MPEG- I SC. 

" " .-" ■ ;\;:1 old" CCS." " - 

; _ois_ccs.; y • ■'■ ; / 

; try decoding frames from, eider CCS, CDQ's units '- 

: " bset- #C.y:cldccs ; ;- ■" ; set old CCS flag 

; : : :dbg . .'- ;- ; " . y " :; - '; -; ."*. ' : 

" " " " ■ nop y' ' :. ' . . „;■ . '■ ' .■ ' . ; ■ 

. nop . . V • - ". \ --. '-.":.■:."*" :.■■./.."'...:•„'"•" ' / . y ■ -'. : . . 

nop: • - ■'. y ' ' / •: • " y •• . 

y ■ nop" ■- - -.- /. •.- 

. nop .' - ■ . • - 

; : • :dbg "• ; - 

• : mp - < re frame \' ' .-reframe. try old CCS 

endm- ■ . 

.-This code handles the special ancillary data problem when frames have- ^ 
; toe many encoded according to the decoder baud rate and the frames also 
■ have the old ISG (CCS) CRC- 16 checksum algorithm fcr protection. 
. ; This condition occurs when trying to determine if the stream cf frames is 

*^ =n! an ZCS CDQ2000 and are two channel frames at low bit rates or is 
\ the stream from a new CCS'CDQ with MPEG-ISO frames but are protected 

using the old ISO I CCS' CRC-16 algorithm. ; - 

. 70C_MANY_0ACA_ERR0RS_DCD macro 

';olc COQ1S30. mono frames a 24 0C 2 . sampling do not apply to this problem/ 

• -set' . fil.y: trl;\_tdata_lC-;; \ /;if eld CDQ1000. skip over ts ecr.tir.ue>'. 

;if too many errors, reframe using the _ opposite .old; CCS -vs.* MPEG- ISC with., '/ 
■ . ;. lew bit .rate two channel- frames.'--' 

* jse~' ' " no y-'rl"^ tdata' 00 . ;if doing eld CCS, go switch. te ISC 
bset. toiytoldccs ... • " ; . .-switch to try eld CCS decoding - 
jmp <ref ratne ; reframe • 

_tdata_0w^^- ,.- ft - (y;cl(iccs . jswitch' to- try MPEG-ISC decoding ■ ' V 



^mp / ■< restart 



restart 
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cdaca ic 



endiri; . -;; 

.•define ancillary .data baud .races and max byte counts per frame: 

; : ! 128.8 . . ■ ... 

; : 14400 sampling rate © 80 msecs ■ 

r !'! !28 .8 

; ' 16000 sampling 'race *©- 72 msecs ..■ 

24000 sampling rate © 48 msecs 
. ' 32000 sampling rate © 36 msecs 
; • ' 48000 sampling rate © 24 msecs 
; . (baud race * milliseconds - bits .received 

bits received chen promoted to next even 8-bics to ye'iid max bytes! ■.' 

;M_^SCCRr.nh (see ,pages„ll-22 & . 11 -31 ) . = -'\ 

; . { C32. 000, 000. / . (64 * nnn )) .- II (result rounded 4' converted to hex). 
;. " where 32;000,000 is crystal, nnn ■ baud rate 



!28 .8 



.'28.8 



define' 
define 

3 

define 
define 
define 
' define 
3 

define' 
define 



BAUD300 
M_SCCR300 .... 

BYTES300 16 
BYTES300~24 
BYTES300_16 
BYTES3 00_24 

BYTES300_3;2 
BYTES300 48 



'$662' 

3 ' \ 
*3' 
' 3 • 
'2' 

' 2 ' 

' 1' . 



.-dip switch code for 300 baud 
;sec. clock for 300 baud. race. 

; 3 bytes (24.0 bits «»> 24 bitsi 

;3 bytes (24 . 0 bics =»> 24 bics) 

; 3 bytes (21 .6 bits »»> 24 bits). 

;2 byces (14.4 bits ■«> 16 bics) 

;2 bytes (10.8 bits *•»> 16 bits) 
;1 byte (7.2 bits .«> 8 bits) 



128.8 



! 128.8 



define BAUD1200 . '1' ;dip switch code for 1200 baud 

define M_SCCR1200 ; '_'." SlaO' ;set clock for 1200 baud rate 

define BYTES1200_16 ■"•"./- '12' . ;11 bytes (96.0 bits 96 bitsi 

define BYTES1200~24 '12' . 12 byxes (96.0 bics -»> 96 bitsi 

define BYTES1200"l6 '11' ;11 bytes (86.4 bits «> 88 bits) 

define BYTES1200324 *8' ,.. ; b bytes (57.6 bits «*> 64 bics) 

define BYTES1200 32. '6' . ;6 bytes (43 ^2 bits .«> 48 bits), 

define. BYTES1200248 .-'.4' ;4 . bytes (28. 8. bits «»>. 32 bits: 



•28.8 



! ! 128.8 



define BAUD2400 '2' ; dip switch code for 2400 baud 

define M_SCCR2400 . . 'Scf ;sec clock for 2400 baud race 

define BYTES2400_16 V '24'*' . ;24 bytes (192.0 bits— > 192 bitsi 

define BYTES2400 24, '24' ;24 bytes (192.0 bits ««> 192 bits) 

define BYTES2400~16 '•" '22' ;22 bytes (172.8 bits •«> 176. bits) 

define BYTES2400~24 '15' , : ;15 bytes (115.2 bits -«>• 120 bits* 

define BYTES2400 32 . ' '11' , ■ ;il bytes (86.4 bits — > 88 bitsi 

define BYTES2400~48 ' '8' ;8 bytes (57.6 bits — > 64 . bits.) . 



; ! ! 128.8 



define BADD3600 ' 
define M SCCR3600 

3 

define BYTES3600 16 
define BYTES3«00~24 
define BYTES3600~16 



r 3' ' . . ; dip switch code fcr 3600 baud 

r S8a* ?set clock fcr 3600 baud rate 

'36' . ;36 bytes (288. 0 bits -•> 2B8 bits: 

'36' ;36 bytes (288.0 bits --> 288 bits: 

'33' .. . ;33 bytes (259.2 bits— > 264 bits; 
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define 3Y7ES3600_24 

:29.8 

define 3YTES3S00 32 
define BYTES3 60C_4 8 



!28.6 



define BAUD4800 
def ine..K_SCCR4 8q0 -"■ 

define BYTES4 BOO 16 
define BYTES4 800 24 :■ 
define BYTES4800 16. 
define BYTES4800/ 24 



1128.9 

-" : define 3YTES4800 32 
define BYTES480C_48 . 

define 3AUD38400 ■; 
define M_SCCR38400 .-. 
! ! 128. e " 

define BYTES39400 16 
define BYTES384 0C~24 
. define BYTES3 84 00~1 6 
- define BYTES3 84 00~24 
' ' ' 28 8 

' define BYTES38400 32- 
define 3YTES38400~48' 



define 3AUD9600 
define M SCCR9600 
3 ' ' ■ 

define BYTES9600_i6 
define BYTES9600_24. 
define BYTES9600 16 
define BYTES9600 24 
3 • '• ~. . 

define EY7ES9600 32 
define BYTES9600~4 8. 

define BAOD19200 
define M SCCR19200 



:28.B 



: :29 . 9 



128,8 



: ! 28 .e 



define BYTES19200_16 
define BYTES19200 24 
define BYTES19200 16. 
define BYTES1920C_24 



define BYTES19200_32. 
define BYTES19200 48 



'22' 

-'17' 



'.4" 

'S68' ; 

'48' ■ 
'48' 
'44 ; - . 
# 29' 

•22*. ■ 
' 15 

'5' 
'SC. 

'384' 
•384' 
' 346* 
*231* 

'173/. 

116' 

•6.'" 
'$33/ 

•96' 
'96* 
'87' 

' 58! ; 

•44' 
'29' 

V7'. 
'SIS' 

•192' 
•192' 
'173' 
'116' 

•87' 
•58' 



-50- ■ : •• •; 

; 22 bytes -172.5 tits «»> 1~6 b::s 

.17 bytes (129.6 bus -«> 136 bits; .; 

• ; 11 bytes (.86.4 bits 88. bits- 
'/dip switch code fcr • 4800' baud.; '■ 
;set clock for 4800 baud rate.. 

;48 bytes. (384 bits «->. 394 bits;."..' 

. ;4B bytes (384.0 bits ««> 334 tits 1 . 

;44 bytes (345/6 bits. mm> 352" tits; ■ 

;29 bytes 1230 .4 bits »«>. 23 2 bits.- . 

;22 bytes . ! 172 .8 bits 176 bits;.. 

;15 bytes (115.2 bits ■ 120 bits 

;dip switch code, for 3 84 CC baud. 

• ;:set clock fcr. 38400 baud, rate 

:384 bytes I3C72.0 bits »=> 3072 bits: 

; 384 bytes 13072. C bits .'-->. 3C72 bits) 

;346 bytes' {2764.8 bits »«> 2768 bits) 

. ;231 bytes. 11643. 2 bits •-> 1848 bits: 

' ,173 bytes (1382.4 bits -«> 1384 bits) 
;116. bytes (92ii6 bits — > 928 bits) - 

. ;dip switch code for 960C baud 
;set clock for .9600 baud rate. 

;96 bytes (768.0 bits «-> 768 bits* 

• 96 bytes. (768 . 0 bits «■> 768 bits.; 

;87. bytes (691.2 bits -«> 696 bits; 

;58 bytes (460; 8 bits 464 bits;. . 

; ;44 bytes (345.6 bits ««> 352 bits) 
; 29 bytes (230. 4, bits ■-■> 232 cits! 

..•dip switch code fcr 192CC baud'. 
•; sec clock fcr 1920C baud rate; 

;192 bytes . :i536.0 bits 1536 bits' 

• ,192 bytes (1536.0 bits " 1536 bits. 
; 173 bytes (1382.4 bits »-> 1384 bits 
-;116 bytes (921.6 bits 528 bits; 

V ;87 bytes (691.2 bits ■■"«>. 696 bits; 
;58 bytes (4G0.8 bits. »-> 464. bitsT 



;def inesanipling rate table of ISO MUSICAM frame .header codes : 



SAMrl^ERATES 



macro ■ 



samplng : 

;:: 128.8 
; r: :28.8 



if SAMPLE - RATE_PA2R«SAMPLE_16K_AIO_24K- 



dc ■'• SAMPLiKGRATE_16 

dc ■ . sample id b:t_h:gh 

dz , . MAXSUBBANDS_CCS ' 



•old CCS CDQioob sampling at 14.4 K 
; old CCS CDC1000 header sampling id t 
.-old CCS CDC100 0 max sub -bands 1 char. 
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dc 

dc 
- dc ' 
dc 
dc 
dc. 
dc 
dc 
dc 
dc 
dc: 
dc- 
dc 
dc 
. dc 
■ dc. 
. dc 



•28.6 
128.8 



MAXSUB BANDS CCS 
SAMPLINCRATE 16 
SAMPLE ID_BIT_HIGH 
MAXSUBBANDS CCS 
KAXSUBBANDS~CCS ' 
MAXCRITBNDS~16 . 
NMSKFREQS_16- \ 
SAMPLINGRATE 16 
SAMPLE ID BIT HIGH . 
MAXSUBBANDS CCS 
MAXSUBBANDS~CCS 
. SAMPLINGRATE_^16 
SAMPLE_ID BIT_HIGH 
MAXSUBBANDS CCS 
MAXSUBBANDS~CCS ' 
MAXCRITBNDS~i6 .. 
NMSKFREQS_16' . 

endif 



-51- • '.' 

;oid CCS- CDQlOCCmax sub-bands 
;old CCS CDQIOOC sampling a~ 14.. 4 
;old CCS CDQ1000 -header samplmo 
;old CCS CDQIOOC max sub-bands I 
."■old CCS CDQ1000 max sub -bands 2 
; number of critical bands at 14.4 
;nutn freqs used for coding at 14. 
;old CCS CDQIOOC sampling at 14.4 
;old CCS CDQIOOC header sampling 
;old CCS CDQIOOC max sub -bands I 
;old CCS CDQIOOC max sub-bands 2 
;old CCS'CDQIOOO sampling at 14.4 
;bld CCS CDQ1000 header sampling 
; old CCS CDQ1000 max sub- bands I 
;old CCS CDQ1000 max sub -bands 2 
♦•number of critical, bands at 14.4 
;nura .freqs used for coding at 14. 



channel 
K 

id:fcif . 
channe 1 
channel 
X 

4 K . 

K * 
id. bit 
channel', 
channel. 

K ." 
id bit , 
channel- 
channel 

K 
4 K 



/• endm ' 

;defir.e framing bit rate .table 
EITRATES macro 



bitrates 

; ! ! !28.8 
; ! ! !28.8 

; entry fcr code 



if SAMPLE_RATE_PAIR«SAMPLE_16K_AND_24K 

RATE_LO- ; framing bit rate of 28.8 Kbits 

™ ime header code fcr 28.8 Kbits 

ime header code fcr 28.8 Kbits 



bits 28.8 Kbit frame «.14.4 K sample . 

frame header code for 28.8 Kbits 

frame header code fcr 28.6 Kbits 

24 bit was 28.8 Kbit. frame « 14.4 K sample 

bits 28.8 Kbit frame © 14.4 K same I- 



dc " 


BITRATE 56 . 


. ;ISC 


• .dc. 


BITRATE 56 


, .;ISC 


dc- 


. .OUTM56 16 


;num 


i dc . 


\ OUTBS6 16 , " 


. ;num 


dc 


. BITRATE S6 


;1SC 


■ dc ■ 


. BITRATE~S6 - 


' ; ISC 


dc 


OUTWS6 16 ; 


;num 


dc 


OUTB56 16 


; nurc 



; entry 



fcr code 
dc 
dc 

' dc- . 
/dc : 
*dc'- 
• dc * 
dc 

dc * 



: :23. 

! !28. 



1 RATE 
BITRATE 64 
BITRATE~64 
OUTM64 16 
OUTB64"l€ 
BITRATE 64 [ 
BITRATE~64 
OUTM64 16 . 
OUTB64J.6 : . • 

'endif - 



HI ;framing. bit rate of 28.8 Kbits. 

;ISC frame header code, for 28.8 Kbits. . 
;ISC frame" header code for 28.8 Kbits.- 
;nurr. 24 bit wds 28.8 Kbit frame * 14.4 K sample 
;num bits 28.8 Kbit frame ®14.4 X sample 
. ;ISC frame header code fcr 28.8 Kbits- 
: ;ISC frame header code for 28.3 Kbits 
. ;num 24 bit wds 28.8 Xbit frame * 14.4 K sample 
;nutr. bits 28.8. Kbit" frame 9 14.4 K sample - . 



I ' endm •- ■ . 

define bit allocation bandwidth tables 
BANDWIDTHS.. '\ macro' 

bndwtbl -\<*. 
; : : !28:8 



if S AMPLE_RATE^PAI R ■ « S AM ?LE_ 16 K_AND_2 4 K 
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; K3ii • races low/high £ 14400 sampling 



dc 
dc 
dc 
dc 
dc 
dc 
dc 
,dc 

dc 

dc.. 
. dc- 

dc; 

dc 

dc 

dc 
..dc , 



USEDSUBBANDS 0C 16 
. LIMITSUBBANDS " 
USEDSUBBANDS 01 16 
LIMITSUBBANDS " 
. - USEDSUBBANDS 10 16 
- LIMITSUBBANDS ~ 
USEDSUBBANDS 11 IS 
LIMITSUBBANDS ~ 

■ USEDSUBBANDS CO 16 
LIMITSUBBANDS ~ 

.USEDSUBBANDS CI 15 
.- LIMITSUBBANDS' ~ '" 

. USEDSUBBANDS 10 16 
LIMITSUBBANDS ~ 
USEDSUBBANDS 11 16 
LIMITSUBBANDS- ~ 



KB it rates low/high ® 14400 : sampling 



rate, low code 00:' mcnc- band -width 

subbands. requiring l allocation 
.. mono band-width 

subbands requiring l allocation 
mono band -width "* 
. subbands requiring 1 allocation 
mono band -width ' 
subbands requiring l allocation 

rate . high code. 01: mono band-width •'. 

subbands requiring l allocation. 

mono band -width 
subbands requiring 1 allocation 

mono band-width 
subbands requiring 1 allocation 
mono band-width 
■ ' subbands. requiring 1 allocation' 



- dc 
dc 
dc . 
dc 
dc;; 
dc 
dc 
dc 

dc 

dc- 
■ ' dc 

dc 

dc 
. dc 

dc" 

dc ■ 



; ! : !28.8 
r : ! !2S.8 



USEDSUBBANDS 00 16 
LIMITSUBBANDS ~ 
USEDSUBBANDS 01 16 
.•LIMITSUBBANDS. " 
USEDSUBBANDS 10 16 
LIMITSUBBANDS . 
USEDSUBBANDS 11 16 
LIMITSUBBANDS *\ 

USEDSUBBANDS_00 16 
LIMITSUBBANDS " 
USEDSUBBANDS 01 16 
LIMITSUBBANDS " 
US EDSUB BANDS_ 1 0 16 
LIMITSUBBANDS " 
USEDSUB BANDS_11 16 
LIMITSUBBANDS . 

■ endif 



rate' low code 00: mono band-width 

subbands requiring l allocation 

. mono band -width 
subbands requiring l allocation 
f :mcno band-width 

subbands requiring l allocation 

mono band -width 
, subbands requiring 1 allocation. 

. rate high code 01: mono banc -width 

• . subbands requiring l allocation 
mono band-widih 
subbands requiring l allocation. 

mono band-width 
■subbands requiring 1 allocaticr. 

monc band-width 
subbands requiring l allocaticr. 



endxn 



.•define ancillary, data baud rate table of clock values and byte counts 



BAUDCLK ' 

baudclic 
; : : :28.s 
; : : ::a.s 



macro 



i f SAMFLE_RATE_FAI Km « SAM?LE_1 6 K_AND_2 4 K 



dc 
dc 

- dc 
dc 
dc 

: dc. 
dc- 
dc 



■ M_SCCR300 -"■ 
BYTES330_16 
BYTES300 16. . 

•M SCCR1200- : 
BYTES12 00 16 ■ . 
BYTES12 00"l6 ; 

■ M SCCR24 00 • 

. BYTES24 00 16 *. 



;set clock for 3 00 data baud rate ;s> 
;tol check of bytecnt e sample 14.4 K 
;tcl check of bytecnt 9 samcle 14.4 K 
• set clock for 120C data baud rate . 

;tol check of bytecnt « sample 14.4 K " 
• : ..;tol check of bytecnt e 'sample 14 4 X 
; ;sec clock. for 2400 data baud rate <z: 
; ;tcl check of bytecnt <t sample 14.4 K 
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ac 
dc 
dc 
dc 
.'dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
. dc 
. dc 



IB.B 
28.8 



BVTES24C: 16 v 
• K SCCR360: -■ 
BY7ES360C 16 
BYTES3600~16 
M_SCCR4800 
BYTES4800 16- ■* 
BYTES4800~16 - 
K SCCR384CG 
BY7ES3B4 30 16 
BYTES384GC 16. 
M SCCR960C" : 
BYTES9603 16.. 
BYTES9600_1€ : 
M_SCCR1920G - 
3Y7ESI920C 16 
SYTES192C0 6 . 

endif 



;toi cr.eck' cf bytecr.t z sample 14.4 
; set clock for 36CC data baud rate 
; tol check of bytecr.t z sample .14 . 4 
..-tol check of bytecnt <t sample '14.4 
.sec clock for 4 BOO data baud rate 
;tol check of -bytecnt a sample 14.4 
;tcl check cf bytecr.t ft sample 14. 4 
;set clock for 3840C. data ' baud rate 
;tol check of .bytecnt ft sample 14.4 
; tol, check cf. bytecr.t ft sample 14.4 
;set clock fcr 9600 data baud rate 
; tol check of "bytecr.t ft sample 14.4 
;tol check of bytecnt® sample 14.4 
;set clock. for 19200 data baud. rate 
;tcl check cf bytecnt- ft sample 14.4 
;tcl. check of bytecnt ft sample 14.4 



.'•4?' 



;7: 



. endir. ' -; ..;*.-:.'; 

; define MICRO decoder Auto Select MUSICAM frame sizes 

input data is MUSICAM frames vs G722 data 
; what is the f ranting bit rate and sampling rate 



to determine .it 



AD70FRAMS 



macro 



autotbl 
; ! ! 128.8 
; ! ! !28 .8 



dc 
dc 
dc 
dc 



126.8 
:28.8 



if SAMPLE_RATE b _PA:R- : -SAMPLE_16K_AND_24K; 



OUTMS6 16 
OUTM64~16 
0OTM56~16 
OOTM64_16 

endif - 



;96 words 
;96 words 
;96 words 
;96 words 



in 28. .8 
in 28.9 
in 28.3 
in 28.9 



Kbit 
Kbit 
Kbit 
Kbit 



frame ft 14 .4 KHz 



frame 
frame 
frame 



14.4 KHz 
14.4 KKz 
14.4 KHZ 



endm 



; end of box_ctl.astn 

. •*••** •*•*•?• #*•••»* **♦#«****• 



list. 
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opt ■ - = - ■: , : . ' •/• • . - , ■ • - ,; • 

tcJ -1995. Copyright 'Corporate Computer" Systems.. Inc. Ail rights reserved. 
\D3CST\dcframe.asm: u_psych parameter for findrms vs checks^ 

title ' PCM data thru XPSYCHO "and X CODE' " . 
multiple mono channels: v ■ 

-h"S -ou-ine receives a buffer of • PCM data and builds a stand alone 
"'"".'single channel mono frame for multiple mono channel devices 



entry 

rC ■ address of the input PCM buffer 
vi « address of. the coded frame buffer 

on exit 1 : 

a - destroyed' 
b • destroyed'. 
yO - destroyed 
yl « destroyed 
■• r2 ■ destroyed . 

r: » .destroyed 
• r4 - destroyed ' 
." n4 * destroyed 



include 'def .asm' 

section highmisc 
xdef. htonals 
xdef nmasJcer 

org : xhe: 
stdcf rame_xhe 

ntonais ds 1-; . 

nmasicer ds 1 

. enddof rame_xhe 

endsec ■ 

. section ytables 
xdef rngtbl 

org "' " ■ yhe: . 
\stdcframe_ytbl . \.' 



'.•number of tonals in tonal s: 
•.•number cf maskers m masker 



ructure 
structure 



mgtbl 



dc 



" V • table for searching for tonal s 
.2. 3, 6.6, 12, 12.12/12; • 



enddcf rame_ytbl 
. • endsec ■ 



org 



phe : 



dc frame 

: ;iMdbg- 
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:dbg 



rts - 

;rcp 

jmp* 



;;np. • .<top; 
c^xcode V ■ 



debug if using s teres frames. buffer 



Start XPSYCHO '. : • 

*•**«••••••« 



••••••••••ft******* 



Now get the position to read the fft data from 

This buffer is. of f set from the polyphase filter tc account for the 

delay- through the filter..- •■. . ." / ■": 

- ' /set to a mod buffer 

; get input pcro buffer address . 
■.-back up to position -fft 
-'-'. ;get harming output, buffer, address 

; apply a hanning window 
- ' - .-restore rO to linear buffer • 

;fft, the data 

real part of fft: 
..•imaginary part of fft 
; power array . 

/compute power of fft data .... 
" ;power array . 

. ; maximum in each . sub -band fslbi 
; fine max power in a sub-band.. 

• ; power array . ' 
; tonal .array 

;range table, for -tonal search- 
■ ;f ind tonals 
.save number of tcnals' . 

;power array 
. - .-tonal array. - 
, .-range table for tonal search 
;zero power around tonals 

.-power array: 

.•address of the- noise .'array 
' ; find, the noise.' ':/';' 

/address of the masker structure 
'; address of the noise array 
; address of .the Tonals structure . • 
;M cf tcnals in Tonals • structure 
.' ..-merge the maskers 
;save « of maskers . 

;get .address cf • the Masker structure •' 
number cf maskers in masker structure 
/ -'• - '; find' the de value of. maskers- 



move 


: SPCMSIZE-l.mO 


move 


y : cpolyst . rC . 


move". 


9 t 256 -64 } , n J 


move / 


• #hbuf .rl'' 


move . 


• <rO.\-r.C '•. 

. . - ■ • 


jsr 


■ < hanning 


move 


y :< linear. mC 


jsr 


< trt 


move 


#fftbuf .rO • 


move ; 


#fftbuf,r4 


move 


#pover,rl 


.jsr 


clogpow . 


move 


' #power.r0 


move 


WSBMaxDb.rl 


jsr 


.<findmaxi - 


move 


tpower.rl. 


move 


#Tonals,r2 


move 


'' #rngtbl.r4 . 


}sr . 


.. <f mdtona 


move 


r3.x:ntonals 


move . 


tpower.rl .- 


move 


#Tonals.r2 


move 


#rngtbl.r4 


> r 


<zeropowe 


move 


#power.rl. 


. move 


#NoisePvr,r2 


.jsr-.,-'. 


<f indnois . 


move 


#Maskers.r3 


move - 


•. #NoisePvr. r2 


move ■ 


• ttTonals.rl 


move 


. xmtonais.xG . 


jsr 


xmergemas 


move - 


* b.x:nmasker . 


move 


., ItMaskers, rO 


move . 


. . x:nmasker , fc 


jsr • 


<finddbma 
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move 


UMa'skers. rC • 




< pruned o 


move 


- #Maskers, rO 


move 


. x : nmasker , b 


jsr ;/ 


<prunequi 


move 


#Maskers,r0 \ 


move,. 


-. xinmasker.b 


3sr " 


<prunemas 


move 


: - *Tonals.rC; 


move. 


x:ntonals,xd 


move . 


ttAlisng.rl '\ 




<f indalis 


move 


b.xrnalias 


move . 


•Maskers . r4 


move 


tGlbMsk.rl; 


)sr •.; 


<QCalcClc 



_pclya_ • 

; polyphase filter the input data 

move . y:<polyst/r0 
. .move #PCMSIZE-l/m0 
move #PlAnal.r5 
jsr' <polyanal '. 
move y:<linear,mO 

; develop the scale factors 
.-initialize the table of scale factors 

.•move. . #SBndSKF,rO " ■; 

■ move . . #6 3 , n4 

\ do ; #NTJMSUB BANDS *NPERGROUP . 
move n4 ,x; (r0> 



init 00 



.. move' #PlAnai.rO 
move *SBndSKF,rl 
jsr <f indakf ■ . 

.-.develop the SBits for scale .' factors 



move 
move 



#SBndSKF, TO 
•SBits, rl . 
<pickskf . 



-56-;.- 

• ..-get 'address cf the Masker structure 
.•prune close maskers 

".; get '"address of the/Masker structure' ' 
.; number of maskers in masker structure 
.; prune quiet • maskers 

;get address of the Masker structure ■'. 
.•number of maskers in masker structure 
; prune masked maskers 

.. /address of the' Tonals structure ■ 
cf .tonals in Tonais structure . 
; destination buffer address 
t ;find alising components 



;.get address of the Masker structure 
t .-address of global masking zhreshcid 
.-calculate global, masking" threshold 



;get polyana start address ■ 

; set as a mod buffer / 

;set start of the sub -band output buffer 

; poly analyze the data 

; restore to linear ctl 



to minimum amplitude (63 0 ,ampl> 
,-addx of sub-band scale factors 



_init_00 . 

";get~value to store shared memory 



;addr of; poly analyzed data 

; addr of sub-band scale factcrs 

.-find scale factors ■ . 



;addr cf sub -band scale factcrs 

;addr cf sub-band sbits 

;pick the best scale factors - "'- 



xcode 



.»•*»*••••#•*•*•••»*•••**•****♦♦♦**********♦***********♦ 
,*••+**** ♦*•*#••#♦♦*#♦••*#•#•♦**#***#*♦ 
.«•••*•** Start XCOCE *••••••••••••••*•*•••••••••*•• 



i •*••*#* < 



-#*•»****•*«•*•*••*« 



»••**••**•* 
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> • ='.. *. ;■ -57.-; ■ ; •. ; •.■ . ; • • ; 

;de:errine wh;:h method to use zz determine the sub-band maximum values 

move y:u_psych,a ;get use findrms.asm rtr. parameter . 

. move #.5,xl ' ' ; if less than .5, use checksub.asra rtr. 

cmp . xl.a ; see if parameter less than .5 

; .-jit ■ <_do_checksub ; ; if less, use checksub.asm rta - - 

. ;use RMS for maximum ievel' fcr the sub-band 

: move «FlAnal,rC - ; addr of "poly analyzed data ". 

move ftSBMaxDb. rl ..-addr of sub-band max 

isr. <findrms" ..-find max in a subband 

'jmp . <_set_mir._raask ;gc.tb set . minimum masking level'*,* 

_do_checksub- *, . ■ . 

.. ;set correct' maximum level for the channel 

move. *sandSKF # r6 '.-addr of sub-band, scale factors- 
move fcSBMaxDb.rl . ;addr of sub- band max 
jsr cchecksub . ;find max in a subband 

'^set_m"in_mask • '. 

.-set minimum masking level in each sub-band 

move. #GlbMsk,rO . /channel global masking threshold. . 

. move #MinMskDb, rl.. "/minimum masking per subband. is lb V 

jsr " <f indminm .-, .-find mm masking 

;set minimum masking level in each sub-band: left channel then right channel 

•move. x.nalias.a ; number of aliaser's 

move ,'#Alisng,rO ' . . ■ .-aliasing structure 

• move SSBMaxDb.rl ; max in each sub-band (sib) . 
. jsr <findraaxs ;find the maximum signal 

,-set number of fixed bits required, and the number of available bits for audio 

jsr . ;<bi.tpool ■ . - ■ 

move xG., y : f ixbits . ;save fixed bit count 

move xl . y;audbits. ;save bit count available for alloc 

.•allocate the bits in the frame by subband ' 

• move #SBits/rO K ; scale factors 

.'•move #MinMskDb. rl .'•..' .-minimum masking ' per -sub-band ■ (slb>* 

: move". : . #53MaxDb,r2 ."/maximum in each sub-band- (slbl . 

: move ; . . *SBPos,r4 - ^..-subrband position.-'* 

move ' ttSBIndx.rS .. ; sub -band indicies ;'. 

.jsr . . <bitalloc . . .-allocate the bits 

- .-code the channel; audio frame • '.- . 

jsr. ■• "" <codeframe 

■ . ■ . rts'"- v - ' • ■ ' . :;'■'•'.•-:.' • ' ' *' ■ • 
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op: 



;■ (c: 1995 ..Copyright Corporate Computer Systems \ . Inc . -Ail rights reserved.. 

!\RM:CRC\getbal.asm ; : 

title . 'Get bit allocations' . - 

■; This routine is used to get the bit allocations of each of the sue -bands. 

; It is from the ISO standard. • 
; sub-band 0 - 10. use 4 bits, til * 4 - 44 bits) • 
.; sub-band 11 - 22 use 3: bits. (12 \ 3 - 36 bits) 
; sub-band 23 - 26 use 2 bits {4*2- 8. bits) - 

(. totai - 88 bits! 



sr. entry 

■ : rO 



'address of bit allocation array for both left and. right channels- 



• ..r6.» current offset' in the input array 
. n6 ■ base address of the input array 

y:<maxsubs » MAXSUBBANDS at sampling rate and bit rate 
y:s= » shift count of current input word 
. y:frmtype - full stereo, . joint stereo or mono 
. . y:sibound ■ joint sterec sub -band intensity bound - 

x:crcbics -accumulator of bits covered by.CRC-16 routine 
(bit. allocation, bits are accumulated) 

on exit ' 

r6 * updated 
. y: sc * updated 



a * 

b 

xC 

xl 

ye 
yi 

rO 
r 1 
r2 
r4 
n4 



destroyed 
destroyed 
«» destroyed 

• destroyed 

■ destroyed 

■ destroyed 

■ destroyed 

■ destroyed 

• destroyed 

- destroyed 

- destroyed: 



include ' def .asm' 



:.: :dgcst: ' , 

section highmisc 
xdef masktbl: 





;;' ' . Xdef 


tbl 




org 


yhe : . 




; ;stgetbal_yhe. 






■ ; :masxtbl 






• ; ■ -de 


•S50C00C 




:\ dc ■ ' • 


v SOC0001 




• V- . -de V 


soaooo3 




; ■" •; ,• dc * 


SOO0OC7 




dc 


• sooooof 



; place holder in mask , table 
.-mask table for 1 bit getvalue ' 
;rnask table for. 2 bit getvalue 
; mask table . for 3 bit getvalue 
,-mask table for . 4 bit getvalue 
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dc 


'. SCOCOlf 


. .mask 


.'cable 


for 


5 bit gecvalue 


dc " 


* SC0003f . 


.-mask 


cable 


for 


S bit get value 


dc . . 


- SC0007f -■■ 


/ ;tnask 


cable 


for 


7 -.bit getvalue 


dc 


.sooobff . : 


. ;mask 


cable for 


8 bic gecvalue.. 


dc 


".. soooiff. 


"; ;mask 


cable 


for. 


9 bic gecvalue 


dc 


SO003f f ' 


. ' ;mask 


cable 


for 


10 bic gecvaiue 


dc ". 


SO007f f : . . 


* ".-.mask 


/cable 


for 


11 bic gecvalue 


dc 


SOOOfff 


;mask 


cable 


.for 


12 bic. gecvalue 


dc 


• SOOlff f / ' 


/ . ;mask 


cable 


for 


■13 bic gecvalue 


dC. ■;• 


. 5003ff f 


-.';« ;mask 


cable 


for 


14. bic , gecvalue. 


dc 


", S007fff ■ ' 


;mask 


cable 


for 


15 bic gecvalue 


dc * 


■ SOOffff 


•'■ ;mask 


cable 


for 


. 16 bic gecvalue 



; define data size cable for the gecvalue roucine co extract daca. 



t . 


dc • • ■ 


. soooooo 




:.dc ' 


$000001 




'•' dc- 


. ; SO00002 




.' dc 


$000004 




dc 


$000008 




dc- 


. sooooic 




dc 


S0OO02C 




dc . 


S 00004 C 


/ 


- - dc ■• .. 


$000080. 




. dc ' 


$000100 




v " dc ' 


$00.0200 




dc • 


$000400 




' dc . 


. $000800 




. dc, 


$001000 




" dc 


$002000 




■ dc ; 


.. $004000 




dc. 


$008000 



; ,-endgecbal_yhe 
; ; end sec 



section highmisc 
xdef . •- skftbl 
xdef skf tbl 1 
xdef : skftbl~2 
\xdef skftbO- 



org 

stgetbal_xhe 



xhe: 



;bics a 


' 0, 


place hclc 


; shift 


left 


01 


bits . 


; shift 


left 


02 


bits ■ 


; shift 


left 


03 


bits ' 


; shift. 


left 


04 


bits 


; shift. 


left 


.05 


bits ' 


; shift 


left. 


06 


bits 


.-shift 


left 


07 


bits 


; shift 


left 


08 


bits- 


; shift 


left 


09 


bits 


■•shift 


left 


10 


bits. 


; shift 


left. 


11 


bits • 


; Shift 


left 


12 


bits ' 


; shift 


left 


13. 


bits ." 


; shift 


left 


14 


bits.. 


;shif C 


left 


15 


bits 


; shift 


left 


is: 


bits 



; address of BAL' s bit cable. as per Allowed table selected 
■skftbl" ds / . ; 1 * ;. : *■"''* ; " ' '- 

; These tables is the number /of bits usee by the scale factor in each, sub -band 
; ^.High sampling -rates with higher bit rate framing .; ' 

skftbi i ' ' * 



dc 
dc 
dc. 
dc 



; sub -band 0 
; sub-band 1 
; sub -band 2 
; sub -band .3 .. 
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dc 


4 


;.sub-band 4 " 




dc • 


4 


' ; sub-band 5 




dc 


4-. "•; 


' ; sub- band 6 . 




dc 




; sub -band 7 




' dc 


4 • 


; ; sub- band e 




dc 


4 . 


.; sub -band 9 . 




- uc 


■ *» 


• c 1 1 W — na 1ft 

* BUCUOiiU Iv 




dc 


3 . 


- ; sub -band 11. 




dc 


■3 


; sub -band 12 




dc 


3- 


. ; sub -band 13 




. dc . • - 


■3 : --: •:.:. 


; sub -band 14 




' dc .. 




; sub- band 15 




. . dc : 


- 3 ••. 


; sub- band IS 




dc 


3 


; sub-band 17 




■ dc 


3 


; sub-band 18 




. dc 


3 • / 


- ; sub-band 19 




'-.dc! • 


3. . 


, . ; sub -band 20 




.dc" : 


• 3 


' ; sub- band 21 




•-. .<*<=': 


■ 


; sub-band 22 




• dc ' 




■■* ; sub- band 23 




dc 


2 ; '■■* 


. ; sub-band 24 




' dc 


2 \ 


; sub-band 25 




• - : dc - 


. 2 - 


; sub-band .26 


; end 


cable- 3-3. 


.2a 






dc 


2 . 


. ; sub-band 27 




dc 


- 2 ■ 


. ; sub- band 28 




dc . 


2 . 


. ; sub- band .2 9 


.end 


cable 3-3. 


.2b 






dc 


■ 2 '• 


; sub- band 3 0 




. . dc 


2- ■ 


.; sub -band 31 



- ; High sampling, races with lower bic race framing 
- skfcbl 2 "'./ 





. dc 


4 


; sub -band .0 




dc 


/4. ' 


; sub- band X 




* dc 


■ •.'■= 3. 


; sub -band 2 




dc 


. 3 


; sub-band 3 




.. dc 


3 - 


. ; sub-band 4 




dc 


■ 3 


; sub-band 5 




dc 


'• '3' . 


; sub-band 6 




• dc 


' 3 ■ • ' 


; sub -band 7 


;end 


cable 


3-B 2c 


; sub-band 8 


dc: 


3 




. dc 


3 


; sub- band 9 




dc 


3 


: • ; sub-band 10 




...dc 


.3 '■' ■ ■ 


; sub-band 11 


;end 


cable : 


3-B. 2d 




dc . 


3 


sub -band 12 




-dc 


* •' 3\ •" 


• ; sub -band 13 




dc 


. ■ * 3' . ■• : . 


. ;subrband 14 




dc 


■: 3 ■• 


; sub-band 15 




dc 


. 3 . ' 


. ; sub-band .16 




dc 


'3 


. '; sub-band 17 




dc 


. . 3". • • 


' ; sub -band 18 




• dc 


-"■ .3 ' 


. ;sub-band .19 




, .dc 


3 ■;. 


> ; .; sub -band 20 
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dc " 


3 




; suD-oana t± 


dc 


■ 3 •;. 




; sub -band 22 


dc 


• -3 




; sub -band 23 


dc 


."- 3- 




. sub -band 24 


dc 


■' * 3" . 




; sub-band 25 


dc 


' 3 " ■.- 




; sub -band 26 


dc - 


3 . 




' . ; sub- band 27 


dc : 


3 •'■ 




v ; sub -band 28 


dc • 


3V- : " 




; sub -band 29 


dc: ' 


3 




; sub -band 30 


dc 


3 




; sub-band 31 



; Low sampling rates 



skftbl_3 



dc 


■ 4 


- ; sub-band 0 


■ dc " ' " 


■" 4 - 


, ; sub -band 1.- 


v ■ ..dc' " 


■■4 - . 


' ; sub-band 2 


".' ■ 


4- .-- '*.;•/..' 


-sub-band 3 


cc 


2 


; sub -band 4 


cc 


': 3 ■■ 


; sub-band S 


dc 


3 


; sub-band 6 


dc ' 


-3 


; sub -band ? 


. .dc ■ 


3 


; sub-band 8 


dc 


■ 3 ' 


; sub-band .9 


• dc - 


■ 3 


sub- band 10 


dc "- 


2 .' 


.; sub- band li 


. - dc 


■2 


; sub -band 12 


. dc 


2 ' • 


- sub -band 13 


• dc 


•• 2 


; sub -band 14 


dc , 


2. 


; sub-band IS 


dc 


• 2 


; sub -band 16 


dc 


2 . 


. ; sub -band :17 


• dc ' 


2 


•sub-band 18 


.dc * 


2 


. ; sub-band 19 


' dc , 


-2- 


; sub - band :2C 


. dc 


2 


; sub- band 21 


dc 


2 


. ; sub -band 12 


dc ' - 


.2 


•sub-band 23 


■ dc 


2 


; sub-band 24 


dc 


" 2 


\; sub -band 2 5 


... dc 


. 2 


.; sub -band 26 


. dc 


" 2 . - • . 


; sub-band 27 


'. dc ' 


, 2 


' ; sub-band 2B 


. dc •• 


• 2 . '•; • 


''. '['; sub -band 2 9 


end cable 3-5. 


' * * 


; sub-band 30 


. dc 


*2 ■ 


dc 


.i ■ 


; sub -band 31 



, endgetbal_xhe " : ' ',- \-- ". 

- endsec'* . V '•. ."'■:> ■- ■ 

- org phe: ; " \ 

... ; initialize : : •*-•■■. ; - ; . - • 

;. a. rl.with start of subband allocation table of-- bits -'in.. -frame . per sue -band / 

. ;"■ b. n0 offset for right channel sub-band bit allocation values:; 

; . ' . • left channel froa 0 to (NUMSUB BANDS - li • 
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right channel from NUMS 173 BANDS to ((2 ♦ NUMSUB BANDS : . -- 1 
-3 with joint stereo sub-band boundary for sterec intensity : 
" r 4 "(4-311 . 8 <8-31). 12 (12-31) or 16 (16-31) *• 



getbal 



move.- xtskftbl.rl ; 

■ move #masktbl,r2 

move ■ . # NUHSUBBANDS . nO ' 

move,- y : <sibound, r3 . 

move . x:crcbits,r5 



.•offset' for right "channel • 

; deer stereo intens sub-band ctr 

.get CRC-16 bit counter" ' • / 



.•loop 
;bit 
; a. 

; : b. 
; c. 
; d . 
; e . 



through the sub-bands extracting -the left and right, iif applicable) 
al'ocaticn index values !y:<maxsubs » fixed count of sub-bands framed): 
for current sub-band get the number of bits for allocation " index value 
and increment address . cf the next : sub-band bit count', 
ae* -he bit allocation for the left channel always 

b register isolate the type of frame: full stereo, jcint. stereo or mono 
yC holds the mono frame type code for testing 
yl hoids the joint stereo frame type code for' testing 
see if the frame type is joint stereo and just m case, move the 
current stereo intensity sub-band boundary counter value fcr testing 
if "net joint stereo, -see, if this is a mono frame type 
if it is joint stereo:' 

■ test if the boundary counter has reached zero, and ;.ust in case 
-estore the left channel bit allocation value to the al" register 



has. 



"f "the "counter is zero, go to copy left channel into the right channel 
if not.. go to extract the - full stereo right channel allocation value;-; 



do y : <tnaxsubs ,_getb_4 0 . 

move "x: (rl) *.n4_ 

; move n4 , n2. 

move n4, n5 

' jsr ' cgetvalue . 

move , y:(r2*n2).xl . 

move • (r5 ) *n5 

and xl.a y :<f rmtype.b 

move al,x: (rO) 

move ^>MONO,y0 

move ^JOINT^STEREO.yl .: 

crap -yl#b r3 , a ; 
}ne ' • < getb_l0 ■ 

tst a" x: (rO) .al 

jeq ' <_9« c b_3.0. • . 

. move . ( r3 ) - 

jmp, s <_getb_20 ■. 



.•get # of bits to read. 
..•get hi order bit mask index.- 
;to accumulate CRC-16 bits . 
.•get a left chan bit allocation 
.•mask for high order one's.. 
,-accum bits for CRC-16. rtn 
..•mask off high order one's 
.* & set for frame type compare . 
.set left channel 
,-ck for no right channel \ 
;ck for intensity sub-banc 
..•check for stereo intensity 
' ;if not-, see if mono 
.•reached bound, restore left val 
;yes. left val to right val ■ 
'.•no, deer intens sub-band cr.tr-*'. 
; . and retreive right chah value. 



-est for a mono type of frame and- just in case it is., set al ..o zero- 

fcr- insertion into the right channel for consistency 
« f i- is mono, oo to move the right -channel value 
"otherwise, fall through to full stereo. 



_getb_lC 



'cmp . .; yO.b ; tb/ai 
jeq <_getb_30 



; if mono,, .insert 0 for right. 



I * u i: stere'e. excract . the /right ' channel bit allocation- value.- 
' aetb 20' 



}sr <getvalue 



' ; get a ;right "char.- bi: 



allocatior 
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move 
move 
and 



y : (r2*n2) ,Xl 
Ir5)«-n5. 
:."xl»a 



.! insert the right Channel value tnO. of f set) \ 
...•increment for the next sub-band - 



Igetb^O 



move 
move 



■■ al,x: (r0«-n0> 
(r0) ♦ 



.-mask for high order one's .*■_.■; 
; accum bits for CRC-lS rr~ . 
.•mask off high order one's 



; right channel . sub- band alloc 
. ;incr for next sub -band 



_getb_4 0 



•88 ^S^ST&SS t£i i%BR^~**. 

' data in" them. - " • 



clr " 
move 
sub 

dO ;■ 

move 
move 



_getb_50 



move, 
rts 



a • # >NUMSUBBANDS , b 

y :<maxsubs,.xO 

x0,b 

b._getb_51T' 
a , x : I roTnO ) . 
a f x: trO) * 



-r5,x:crcbits 



.-current MAXSUBBANDS 
.-equals unused sub -bands / 

right channel 
.•left chan & incr for next 



; store updated -CRC- 16 bit . counter. 
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opt f c . cex . mex . 

- ; (c). 1995i Copyright Corporate . Computer Systems/- Inc .. All rights reserved. 

. ; .\DGCST\getdata. asm: moves to high. P- Memory 

■ .title •." 'Get the Data" ' ■ 

; This routine. sets the data-in the output buffer 

. ; on entry ''■■*".*".';.- 

.r3 « address of left & right channel SubBandlndex array .<x memory) . 
;. ' r2 - address- of left & right channel SubBandSKFs array : (x memory) 

rl - addr of buffer for a set of left and right channel recovered data 
(192 samples: one group of 3 samples, 32 subbands,. 2 channels) 
.. r y:<maxsubs « MAXSXJ3 BANDS at sampling rate and bit rate *." 

; y:AllwAdd • address of the proper Allowed table at sample/bit rates 

. y:frmtype » whether full stereo, joint stereo or mon frame ; 
;. y : si bound - if joint scereo,- sub-band boundary for. stereo intensity 

: shared memory for rsynth - : ■■•*. * : " 

. • ; on exit 

a ■ destroyed' 
. b = destroyed 





. xO 


3 


destroyed 




xl 


X 


destroyed 




. yo 


D 


destroyed 




yi 




destroyed 




'" r0 


m 


destroyed 




rl 


S3 


destroyed 




r2 




destroyed 




• r3" 


s ' 


destroyed 




r4 


m 


destroyed 




rS 


XX 


destroyed 




no 




destroyed 




ni 




destroyed 




n2 


m 


destroyed 


t 


n3 




destroyed 




n4 




destroyed 


' 1 


. n5 


m 


destroyed 



include 'def.asm' 

include ' . \rmicro\getvalue .mac' 

section highmisc 
NBits 

cc 

DD \- . . 

pacJcmax 
packrpl 

xhe: ,:' 



0 ; position • 0, place holder 

2 ; position 

3 "" ; position » 2 

3. ;position - .3; 1 . . 

4 .-position • 4*. 



*. xdef 
xdef 
xdef 
xdef 
'. . ' xdef •■ 

org . 
stgetdata_xhe . 

NBits 

- de ■- 
dc 
dc 
• dc 
dc 
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cc 



U w 


4* 


*■ • /position 5 






• cos * r ; on -» ' 6 ■ 




• 6 ' * 


■.■ /position « 7 


dr- 


7 •■ 


; posit ion. » 8 .• 


d*- 


8 


. . /position » 9 


dr 


.'9 - 


. - ; position • 10 


/4r 
Ub 


10 


; position 11 


dc ■* 


' 11 


; posit ion.* .12 


dc 


■ 12 "* 


♦•position = 13 . 


dc 


13 


; position ■ 14 


dc ' 


14- 


/position * 15- 


Uw 


15 


. /position -16 


dr " 


16 


/position 17 




' 0 " 


/position 0, place holder • 


dc 


5555555 


; -4 . 0/ (3 . 0*2 . 0 )* position 1 */ 


dc 


. 5666666 


. ;. "8.0/ (5:0*2 .0) position 2 "*/.-■ 


dc 


S492492 


. ; 8.0/(7.0*2.0) position 3 ♦/ 


d c : 


. . S71C71C 


'.' ; 16.0/(9.0*2.0) position 4 */ . 


dc 


.. . $444444 .. 


■ ; 16.0/(15.0*2.0) position .5 */ 


dc. . 


S421084 . 


./ 32.0/(31.0*2.0) position 6 ♦/ 


.dc . 


$410410 


; 64.0/(63.0*2.0) position 7.*/. 


dc 


$408102 


128.0/(127.0*2.0) positions *.. 


dc 


$404040 . 


.; 255.0/(255.0*2.0) position 9 *>' 


dc 


$4020X0 


; 512.0/(511.0*2.0) position 10 •/ 


dc 


$401004 


•; .1024.0/(1023. 0*2.0) position 11 */ 


dc 


$400801. 


.-; 2048.0/(2047.0*2.0) position 12 */ 


dc 


: $400400 : 


; 4096,0/(4095!o*2.0) position 13 */ 


dc • 


$400200 


; 8192.0/(8191.0*2.0) position 14 */ 


dc 


$400100 


; 16384.0/(16383.0*2.0) position 15 */ 


dc 


. $400080 


; 32768.0/(32767.0*2.0) position 16 .*/ 


dc 


$400040. 


/ 65536.0/(65535.0*2.0) position 17 .*/ 



DD' 



dc 

dc 

dc 

dc' 

dc'- 

dc ' 

dc. 

dc 

dc 

dc. - 

dc. 

dc 

dc \ 

dc : , 
•dc 

dc. 

dc. 
■ dc 



$000000 

ScOOOOO 

ScOOOOO, 

SaOOOOO 

ScOOOOO 

$900000 . 

$880000 

$840000 

$820000 

$810000 

$808000 

$804000 

$802000 

$801000 

S80O8C0 

$800400 

$800200 

$800100 



position 
position 
position 
position 
position 
position 
position 
position 
position 
position 
position 
position 
■position 
position 
position 
position, 
position 
position 



0/ place holder . - 

1, .5000000-1.0 */ 

2, .5000000-1.0 */ 
3., .2500000-1.0 « 
4 , . 5000000-1 ,0 •< 
5, .1250000-1. 0 « 
6/. .0625000-1. 0< 
7... 0312500-1.0 < 
8; .0015625-1.0 < 

9, -.0007812-1.0 < 

10, ,0003906-1.0 
11,. .0001953-1.0 

12, .0000976-1.0 

13, .0000488-1.0 

14, .0000244-1.0 

15, .0000122-1.0 

16, .0000061-1.0 
17 



.0000030-1.0 



/. 
/ 
/ 

'/ - 
/ 

/ . 
/ 

*/ 
*/ 
*/ 
*/ 
•/ 
*/. 
♦/ 
*/ 



/check for bit errors in packed positions 
; r. ' • . STANDARD ISO . . CCS 

max replacement /•- max . 
value ' value " value 

■ 2 6 . 13 v.. ■■■ - " v - 

12.4. : , • • . €2 ■ : : , 



position . 

■"• .i- : '" . 

• : 2 - •■; ; • 



: 1, 2, 3 and 4 
COMPRESSED 
replacement 
value 

• ■• .7 
- 31." 
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438. - 



219 



728. 



364 



packmax dc 
packrpl. dc : . 

endge t da t a_xhe 
endsec 

section 

:: xdef . 
■ ■ . xdef 
■ " xdef - 
v xdef ' 
. .- xdef ' ' 
xdef 
xdef -.. 



av ds 

bv ds. 

cv . ds . 

bandcnt ds 

block ds 

syereg ds 

dvalue ds 

cvalue ds 



lowmisc 

av . 

bv 

cv 

bandcnt . 

block 

svereg 

dvalue, cvalue 



• ■ - org. .* yli : 
stgetdata_yli 



,;A value after. uppacking 
;B value after uppacking 
;C value after uppacking 
; incr sub-band for stereo intensity, 
.•block no 0:0-3, 1:4*7, .2 :8-ll ; . 
;save a register value 
; hold current DValue . 
; hold current CValue 



endgetdata_yli 
endsec 



section 


highmisc 


xdef - 


ivdata 


xdef 


ASMDadd . 


xdef • . 


SKFaddr 


. . xdef 


INXaddr 


xdef " 


AllwAdd. 


. xdef 


Allow 


■xdef 


getdataN4Save , 


xdef 


bereich 


. ' xdef V 


.shftbl 


* ' org ' 


.yhe:-. 


stgetdata_yhe 




ivdata ds -.. 




ASMDadd ds- 


1" ' ""■ : '. *'v 


SKFaddr ds . . - . 


■I-'". ' '." 


INXaddr ds ■; 


1 *'■• 


AllwAdd ds .. '. 




Allow . ds . 


1 ■' • . ■* ■ 


getdataN4Save, 


da ',-. ' i . 


include 


• . .\cbmmon\bereich 



; left & right channel recovered data' 
;;A start addr shared mem for samples 
.-starting addr for SKF' s . - 
/starting addr for SBIndx's .." 
;save addr of applicable Allowed table 
;currer.t address in Allowed for sb . 



asm' 



shftbl 



SOOOOOO 



; bits'- 0. place holder 
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..dc • 
dc 

" /dc 
dc 

-'. : dc . 

• dc : 
' dc 

' -. . -dc. v; - ■■ 

* * " 'dC-V ' 

■ dc • - 

.- dc.-, 

: .dc- • 

* '■ : dc 

• dc 

' '"-dc-' ■■ 
• . dc i ■ 

: endgetdata_yhe 
endsec 



org 



getdata 



move 
move : 
move 



S4OO000. 
$200000 
S100000 
$080000 
$040000 
$020000 
S010000 
$008000 
S004000 
$002000 ■ 
$001000. 
$000800 
$000400 
. $000200- 
$000100 
S000080 



phe: 

r2,y:SKFaddr 
r3,y:INXaddr 
ri.y:ASMDadd 



;biC5 
;bits 
.bits. 
.;bits . 
;bits 
;bits 
;bits 
;bits 
;bits 
;bits 
;bits 
;bits 
;bits 
•bits 
;bits. 
;bits 



1 . 
.2.- 
3, 
4 , 
5/ 
6, 
7, 
S t 
9, 
10", 
11. 
12. 
13, 
14 > 
15, 
16, 



shift 
shift 
shift 
shift 
shift 
shift 
-shift 
shift 
shift 
.shift 
•shift 
shift 
shift 
shift 
shift 
shift 



left 

left 

left 

left; 

left 

left 

left 

left 

left 

left 

left 

left. 

left 

left 

left 

left 



23 bits 
22 tits- 
21 bits. 
20 bits 
19 bits 
18 bits 
17 bits 
16 bits 
IS bits 
bits 
bits 
12 bits 
11 bits 
10 bits 
C9 bits 
08 bits 



14 
13 



move #0,r0. 



,-save start "address . 

;save start address 

; save start addr ivquant values 

; start' group number 



;loop through the 12 groups of . 3, samples per sub-band per channel 
; advancing through 36 samples 

; set-up for the group: * *.. • 

1. set starting address for inverse quantized values . . 

2. reset. the starting address of the Allowed sub -band bits 
; 3. determine the SKF factor grouping; 

; 4. set up for joint stereo sub- band intensity boundary checking. 



do 



#NUMPERSUBBAND,_getd_90 



set up for next group of- samples: 



move 
move 
move 
move 
move 
move 



y:ASMDadd,rl 

rl,y:ivdata 

y:INXaddr,r3 

y:SKFaddr,r2. 

y:AllwAdd,r5 

r5,y :Allow 



; reset start recover data addr 

;ihit recovered data curr addr 

; reset SBIndx ptr . 

; reset start SKF address 

; reset address of allowed- 

;and save . . 



; set which block of SKFs (scale factor indices) 

- 0 for group of 4 samples 0-3. ... 

l: for group of 4 samples 4-7 , . .. 

;. . 2 for group of 4 samples .8-11 



move 
move 
cmp . 
39* . 

move 
'cmp 



rO.xO 
#>4.b . . . 
x0,b ;#C,yl 
<_getd - 06 • 



#>8,b. 
■xC.b - 



.#>i;yi 



; curr group to test 

; block [0) groups 0 - 3 

,-block [1] groups 4... - 7 
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move 



<_getd_0S 
'#>2.yl 



; block -2] groups 6 



getd_06 

set -up for. ;oir.t ' stereo sub? band intensity control 



move ■• • '.rO) 

move yl f y:<biock- 



increment ; the 'group number 
save which block [C. 1 :r 2 '. 



move y : <sibound,n0 
move ■ nO , y : cbandcnt 



; joint stereo intensity sub -band 
• bound sub -band decremented 



r. j , y '• <udau<>.iw , ~w — — - — — — - 

bclr *J0INT_at_S3_B0UND.y:<ctlflgs. .-clear reached intensity suo-oana 

•process this .'collection of three samples per sub -band per channel 

■•■'."'do ' "ftirJMSUBBANDS^getd^ec : 



move " • y:ivdata.rl *• 

move " #C ,n3 '"'"•''„"--- v - 

. bclr #LEFT_vs_R:GKT.y :<ctlf Ags . 

move . y:<block,r.2 . 



";left ."channel block "1st ■ ■ 
; left channel SBIndx values 
; inidcate working on left chan 
; Which block cf SKFs 



process. left channel and then right channel for. current sub-band 



do • 


a NUM CHANNELS, _g 


move . . 


' *NUM SUB BANDS , nl 


move 


" x: (r3+n3) ,nS 


move 


y : Allow, r5 


move 


ttDD.r4 


move 


x: ir5+n5i ,nS 


move 


n5,a 


tst . 


a nS,n4 


jeq 


<_getd_60 


move 


#CC.r5 . 


move 


x: ir4+n4) ,xl 


move 


x: ir5+n5) .xQ 


. move . 


xl ,y : <dvalue '\- 


move 


- xO,y:<cvalue . 


move ■'" 


#NBits,r5 : 


move 


#>l,yl . ■ 


move 


x: (rS+nS) ,n4 .. 


move 


- x: (r2*n2) ,n5 


move 


*bereich,r5 



; spaced by number of subbahds 
; SubBandlndex [SubBand] . 
f *get the address cf Allowed iSB]- 
; address of the P table . 
;get position- for the subband 
;save the position 

; check position *- 0 AND ; 

; set position for DValue fetcn 

;not transmitted 

/address of the C table 

; DValue . - \ ;/ ,. ' 

;CValue. 

; save DValue 

.-.save cvalue . 

•address of NBits array. 

;to test for packed pos 1 below 

;nbits ■ '. 

•;SKFlndex[SubBandl [block-; 
SKF" table address . : 



,no», if doing the left channel. «=^ n ^ e w f n ^^" C ^SI d d ^% u b-band 
.otherwise, check ^r _jci« s « It n 



.; otherwise, check for joint stereo ; ns ity boundary reached. 

..-if right channel joint stereo ^'^ e f ;^;^ e f^r ?*e- left, channel . ■ 
Uherv!s"e£r^"he'?^^ guantiz^ 

-,t~«- «* as : ae-d 10 ; clear if demo on left" cr.ar 

:;. l^X*J^ bound, d^ch- 
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a set up for' extracting the data values ■;" - . • • 

latest the position for packed types (positions .2 , 3 cr 4) 



: move . 
. move 
• . move 
-move 
cmp 

• jeq ' 

. .cmp* 

' • cmp ■ 
jeq • 
ctnp 

■ ' jne . 



#tbl,r4 ' 
n4 ,ri0 : ;/ 
y.csc.b 
y : c curwd, yO .. 
yl.a #>2,yl 

< getd 20 
yl.a #>4'.yl 

< getd_30 
yl.a " #>3,yl 
<_getd_4 0 

yl, a -'■ 
<_getd_12 , . 



•get shift table address. 
" ;save- nbits . ■ 

;get the shift count ■.. , 

•get current frame word. ! . 

.-check position »• 1 

•handle pos iwith 3 packed values 

.•check position ■ -" 2 ■ 

; handle pos 2 with 3 packed values 

; check position »• 4 

;hahdie"pos 4 with; 3 packed values 
v; check position *« 3 . and if. not, 

.-handle- all other pos as unpacked. 



! fC T* P co™ressed mode, handle allocation as a packed value . ;, \ . 
; "otherwise, handle as ISO standard unpackeaset of * values. : 

: jset ttDECOMPRESS^ACKED.y^ctlflgs.^getd.SS 

_getd_l2 ; • .. • : ~ ' \ ' V 

.' ; not position .!. 2 or. 4 so just: a regular input of 3 adjacent/data- values 
move., y: (r4^n4).xC : - ;get shift, left multiplier per bit 

' ; extract the 1st value. and save' it in y:<av 
' ; mpy \ xO.yO.a n4.xl/: 



cnt 



sub • . xl.b a0,y:<curwd 
* move . b,y:<sc . 
;let's try. a macro 

. jge • <^getd_16 v< 
get next word 10,15 

' getd 16 ■' 

move-. . al,y:<ay / 

; extract the. 2nd value and save it i 



;shift extracted bits into- al with 
; . newly shifted curwd in aC 
• & save passed numb bits required 
\-see if next. word need to complete 

& save newly shifted. curwd-. 
•save new shift count • 



value 



save is: 
,n y: cbv. 



inverse quant 



move 
. move 
mpy : 

' sub * 
move 



: y:<curwd,y0 V . 
y: ir4+n4>',xC . .. 
xO.yCa n4,xl . -. 

xi.'b aO,y:<curwd 
b.y:<sc 



; get current frame word .;• 
; get shift left multiplier per bit 
; shift extracted bits, into al with 
; . newly shifted curwd in aO 

& save passed numb bits required 
;see if next, word need to complete 

& save newly shifted curwd 
. :save new shift count- 



value 



'; let's try a macro- 
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jge • <_getd_16 " 
aetnextword 20.25 



getd_18 

:~ ■ move " al,y:<bv ; save 2nd for inverse quar.t 

ex:rac: the 3rd value and save it- in y:«'cy" ' • -. 



move . y : <curwd . yO 
move. y : (r4*n4i .xb. 
mpy xO.yO.a n4.xl 



sub xl , b. . aO . y .- < curwd 

move b,y : <sc 

jslt . <getnextword , 

move : al.y:<cv 
- m P <_ge^d — 5C 



,-get current frame word". 
.-get .shift left multiplier per bit cnt 
; shift extracted bits Into al with 
■; . ■ newly shifted curwd in aO 
. ; & save passed numb bits required 
;see if next word need; .to. complete ; value 
; & save newly shifted curwd r : 
; save new shift count 

;yes,; get rest from next- i/p frame word. 

;save 3rd for inverse quant 
.go" to do. inverse quantizing 



Pos 1: Three adjacent data values are packed intc 5 bits. 
Each of the data values are only 2 bits wide. 

packed_value - valueO * 9 * value 1 * 3 * value2 

packed_value • . 3 * ivalueO. * 3 * valuel) value2 



„getd_2C 



move . . #>26 ,x0 
move #>13,xl- 
move . #MASKvJ?ACK3 , n4 



;ISO maximum packed value 
;ISO replacement value 
.-unpack get value mask. 



if compressed., switch to compressed mask 



iclr 
move 
move 
move 



#D£COMPRESS_PACKED ( y : cctlf Igrs . _getd_2: 



_getd_2: 



move 

move 

move 

move . 

move 

move. 

move 

move-: 

move 

move 

move 

move 



S>14 ,XQ 
*>7.Xl. . . 
n MAS KUPACK3 X . n4 



n4,y:<av < 

#36, n4 

n4,y :cbv 

il9,n4- 

n4,y :<cv 

#12. n4 , 

n4,y :<crcstrt. 

#3.n4 

n4. y:<svereg 
#3,n4. 

n4,y:<not- appl 
*5,n4. . ~, • • 



; CCS compression maximum packed value 
,*CC£ compression replacement value 
..•compressed unpack getvalue. mask 



.-save in y:<avalue for hew 
•unpack initial divisor... 
.-save in y:<bvaiue for how 
; unpack initial multiplier 
.-save in y:<cvalue fcr now 
,-unpack" second divisor : 
.•save in y:<crcstrt for now 
.•unpack second multiplier 
.•save' in y : <svereg ; for how 
.•unpack loop counter 
.•save in y : <not_appl f of now 
.•change to packed values nci- 



:ompressed. switch to. compressed nbits 



- #DECOKPRESS_PACKZS.y :<ctlf lgs,_getd_22 

' «4,n4, ; change to compress packed values. 



:its 
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Pos 5: Three adjacent data values are packed into 7 bits'. 
Each of .the data values are only 3 bits. wide. ' - 



packed_value .■ value 0'. ♦ 25 ♦ vaiuel .* 5 value2" 
packed_value ■ 5 * 4 valueO ' * 5 - * vaiuel ; + value2 



_getd_30 



move. #>124,x0 
move #>€2.xl 
move #MASKUPACK5 , n4 



; ISO maximum packed value 
/ISO replacement value 
/unpack get value mask 



; if compressed,, switch to compressed mask 



}cir 
move 
move 
move 



^DECOMPRESS PACKED, y: <ct If Igs . getd 31 

#>62,x0 ■."!".* ~ 

#>31,xl 

#MASKUPACK5X,n4 . 



;CCS compression maximum packed valus 
;CCS compression replacement value 
; compressed .unpack getvalue mask. 



_getd_31 



move 
move 
move 
move 
move 
move 
move 
move 
move 
move 
move 
, move 



n4 , y : <av 
.8200, n4 
n4 ,y : cbv 
325, n4 
n4,y:<cv -. 
#40, n4 

n4 ,y : <crcstrt 
#5,n4" . 
n4,y:<svereg 
#4.n4 ' 

n4 ,y : <not_appl 
-#7,n4 • 



;save in y:<avalue for now 
•unpack initial, divisor . 
/save ir. y:<bvalue for now 
/unpack initial multiplier . 
/save in y:<cvalue for now 
/unpack second divisor 
/save in y:<crcstrt for now 
/unpack second multiplier 
/save in y:<svereg for now 
/unpack loop counter ' 
/save in y:<not_appl for now 
/change to packed values . nbits 



if compressed, switch to . compressed nbits. 



_getd_32 



3Clr • , ,#DECOMPRESS_PACKED,y:<ctlflgs;_getd_32 : 

move \.#€.n4 . . /change to compress packed values nbits 

jrap * . <_getd_45 



.Compressed pos 3: 

Three adjacent data values are packed into 8 bits. 
Each of the data values are only. 3 bits wide. 

. packedjvaiue *■■ valueO *.€4. - vaiuel. *. .8 * value2 

packedjvaiue - 8 * (valueO ♦ 8 * value!) + value2 



_getd_35 



mcve . 


*>438,x0 


move '.. 


#>219,xl 


move . 


• ttMASKOTACK8X,n4 


move. . 


n4,y:<av 


move 


■ «200.n4 


move 


.n4 , y ; <bv ' . 


move 


• »25.n4 V 


move 


r.4.y:<cv: 



*- ; CCS' compression maximum packed vaiu? 
• ■ ;CCS compression replacement value 

/.unpack getvalue mask 

/save in y: <avalue f or now 

/unpack initial divisor 
.' ./save in y:<bvalue fcr r.ow 
//unpack initial multiplier 

.•save ir. y:<cvalue fcr now 
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move \ #4 2,n4- 

move n4 . y : <crcstrr 

move #5,n4 

move n4 , y : <svereg 

move- - #4. n4 " '■ * 

move - n4. y:<not_appi- 

move. * #8, n4 ~ 

jmp - . <_getd_45* 



,-unpacx second divisor 

isave in y:<crcstrt for now. 

; unpack second multiplier 

;save in y:<svereg for now 

,-unpack loop counter 

,-save in y:<not_appl for now. 

; change to packed values. nbits 



Pos 4 : Three adjacent data values are packed into 10 bits. 
;.. Each cf the data values are only 4- bits wide. 

packed_value « yaliieO-. * .81 value 1 * 9 value2 
'-' •" . ■ * . or " • 

packed_value - 9 V (yalueO * 9 *,valuel>. - value 2 



getd_40 



move . #>728,x0". 

move #>364 ,xl * 

move #MASKUPACK9 , n4 . 

move n4, y:«av 
move. . • ■'. #1296 ,n4 . 

move '-. ' h4,y:<bv 

move #81, n4 

move n4;y:<cv 
move . #144/n4 

.move . .n4 , y : <crcstrt . 

move . . #9, n4 

move n4 # y : <svereg 

move . #5. n4 

move n4 , y : <not_appl 

move #!C,n4. 
noo 



; ISO maximum packed value . 
; ISO replacement value - r 
; unpack getvalue mask 
;save in y:<avalue for now 
; unpack initial divisor 
,-save in y;<bvalue for now 
; unpack initial multiplier ; 
•save in y.<cvalue for now 
; unpack second. divisor 
,-save in y:<crcstrt for now 
;unpack second multiplier 
; save in y:<svereg for now 
; unpack loop counter 
; save in y:<not_appl for now 
; change to. packed values nbits. 



handle the data value extraction from the frame and unpack for 
either'- position i... 2, 3 (if compressed) or 4- . 



getd_45 



move 
move 
move 

. jclr. 
move. 



xO , x : packmax 
xl , x:packrpl 
y : (r4*n4 ) ,x0 



/save position max packed value 
; save position replacement . value, 
.-get shift left multiplier per -bit 



#DECOMPRESS_PACKED, y :<ctlf Igs , _getd_46 



getd_4€ 



mpy; 



sub . 

move 
jslt 

move 
and ' 
move 



n4 , y :getdataN4Save 
xC,yO,a n4,xl 

"xl,.b aQ,y:<curwd 

b. y : <sc ■' 
<getnextwbrd * 

y:<av,xl 

xl.a * ■ 
al, a . 



; save the bit field size 



; shift extracted bits into al with 

newly shifted curwd.in.aO 
; i save passed numb bits required 
see if next word need to complete 
; & save newly shifted curwd 
;save new shift count 
;yes, get rest from- next i/p frame 

;unpack getvalue mask 
;mask off high, order one' s 
;clean up . 



value' 
word , 



;test for a possible bit errcr. that might, have' caused a value/ above they 
; maximum packed value 
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;if above maximum, replace with the middle value 



, move 
cmp . 

' move . 



x:packmax,xl 
xl,a 

<_getd_4 7. 
x:packrpl,a 



;get .poisition max packed dvalue 
; compare retrieved value to max 
;if net . above max -value , . continue 
;since above, replace value 



_getd_47 



jelr 
move 
move 



- #DECOMPRESS_PACKED;y:<ctlf lgs._getd_48 
y : getdataN4Save,r4 • /restore the bit field size ; 

a n4 . ;set compressed value for table look up 

edeompval v' ;9«t the decompressed value for- unpack 



_getd_48 



3 sr . 
move 



< unpack 
nG,n4 



■ ; get 3 parts 
; restore nbits 



;n0 w let's inverse quantize the 3 samples 
•' getd 50 

" . " move #shftbl,.r4 

move y:<av,y0 

move y: Cr4*n4'i .yl .:■ 

■ tfr . yi.b . 

■ move y: (r5+n5) ,b0. 



; ivquanti 1st value: " ! 

mpy ■ . yCyl/a 



move 
. add 

move 
mpy . 

move 
rapyr 

asl 



a0,a 
xl,a " 

ai,yO 
xO , y 0 , a 

a,yi - 
. y0.yi,a 



y:<dvalue,xl 

y : <cvalue,xO 

bO.yO 

bl.yl 
y : <bv,y0 



.;to left justify in, ivquanti 

; save A value 

;get left shift value 
: ;save left shift- in bl; 

;get Z factor 



;lst value: left justify bits 

; k set DValue . 

;move xslt to correct register 

;Y + D . . 

; t set CValue : 

; forget sign extension 

;C * (Y + D) . 

;. & set up 0 factor 

;rnd scaie factor * C * (Y 
; & reget left shift value 
;mult by 2 again 
; & get B value 



; ivquanti 2nd value:. 

mpy. ,y0.yl,a 



move 
add 
move 
mpy 

move 
mpyr 

- asl - 



a0, a 
xl,a ' 
al,y0 
xO.yO .a 

a,yl 
y0 , yl , a 

* a ■ ■ 



a, x:-.(rl).+al 



b0,y0 - 

bl,yl. ■ 
y rxcvi.yO- 



^nd value: left justify bits . 
; & store 1st; data value 
;move rslt to. correct register 
; ;Y - D 
; forget sign extension. . 
;C * (Y - D) ; 

& reget .C factor 

Vrnd scale factor * C * (Y * Di 
• & reget left shift value. 
; mult by 2 again 
get C value 



: ; ivquanti 3rd value: • 

•mpy.'- . yo,yi,a 



a,x: (rl)-nl . ; 3rd -value: left justify; bits 
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move 

add 

move 

ropy. 

move 

mpyr 

asl 

wove 
jmp. 



aG.a' • 
xl. a 
al.yO 
xO.yO, a 

a;yl 
y 0 . y 1 . a 



: bO.yb . 

"•>■ #>i" v yi 
y : <bandcnt , b ' 



a.x: irl) +ril 
<_getd_70. 



.; & store 2nd data . value • 
;move rslt to correct register" 
; Y * D . ■ 

; forget sign extension - 
;C *• (Y ♦ D) ■ 
& reget C factor 

;rnd scale factor *c * ( Y * 0; 
; u setup for intensity bouhda: 
;mult by 2 again, & set up 
; to test. for intensity bounda 
; store 3rd data value . 
;try next channel' 



All the 3 adjacent values, in the sub- ban^ are 0 



^getd_€C. 



clr 

; move 
rep 
: move 



a 



y: <bandcnt .b 



*>i.yi' 

#NPERGROUP 
a.x: .(rli +nl 



; output 6 value/ u setup 

; to test for intensity bounda 

; setup for intensity boundary. 



We have just finished the current channel \ w , , . • 
' and <f we just did the. left, set up for the right channel - 
f if juit did right channel, check for joint stereo and the 
r intensity bound of sub-band w w™ i"' 

' ^ not a joint stereo frame, go set-up for the next sub-band, 
i if right channel joint stereo sub -band intensity boundary reached. 
' ao set-up for the next sub-band. ; \/ 
Vhfrvise, decrement the intensity boundary sub-bana counter 
• " before the go set-up for .the. next sub-band. 



_getd_70 



jclr 

jclr. 

jset 

sub 

move 

jgt 

bset* 



. rwE n vs RIGHT. y:<ctlflgs,_getd_72 ;if did left, go set-up ngh. 
#JOINT FRAMING. y:<ctlflgs^getd_72 continue if not jowj . 
#JOINT~at SB BOUND.y:<ctlflgs._getd_72 -if reached, ccr.t.nue 

lb ;not reached so decrement ctr .- 

ki v.h»ndmt 1 ; and save for next, sub-band ' 

MtfS • ' - if noc "* chcd - continue, . 

>JOINTlat.SB.BOUND,y: <ctiflgs ,;- ; if reached, set indicator - ; 



; af ter the .left channel, set-up to, do the right- channel 



_getd_72 



move 
move 
move . 
move 
;add 

-bset ' 
move, 
move 



It NUMSUB BANDS * NPERGROUP .hi 
y:ivdata.rl 

* >NUMSUB BANDS • NPERGROUP , a 
y: <block.x0 

xO.a #NUMSUBBANDS,n3. ". 

It LEFT vs RIGHT. y:<ct If lgs 
(rl)+nl * 
al,n2 



;adj;to "right channel fields: 
;get current start address ^ 
;move to SKFs for right channel 
:,*get current .block offset 
; add right, chan offset., set 
: AND set adj to right SBIndx 
/indicate how doint right 
.-adjust rl to right rec data 
.•offset' register 2 • 



: 1 :~ ^^-Sr^ ' iri SK? * 

•4. inrremer.-. she Allowed- array pointer so next sub-band 
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_getd_7S 



move 


*>i..xo ■: 


move . 


y:ivdata,a 


add 


, .x0,a , (r3i * 


move 


a.y :ivdata • 


move 


.. a>16.XO 


move 


y: Allow, a 


add 


xO.a- #3.n2 


move 


a.y:Allow 


move 


(r2>*n2 



_getd_8C 



;incr left and right rev d samps" 
.•address prev sub -band . 

. ;.adj next sub-band, incr SSIndx 
;save new addr next sub-band 
;adj Allow ptr to next- sub-band " 

:.*get current Allow address 
;adj Allow per, adj SKFs - by 3 ' 
.-save Allowed for next sub-band 
.-next - sub-band SKFs. addr 



;We have' just finished a group of 3 samples per sub-band per channel 
and we must send these value to the polysyn thesis dsp ■ 



move 
bcir 
jsr 
move 



_getd_9G 



bcl: 
rts 



rO,y:<svereg . 
#0,y:<not_appl 
<synth : 
y:<svereg, rC 



#0,y: <not_appl. 



;save the key register 
.•clear, tested bit if not .appl: 
;synth this group of values ■ 
; restore the key register 



;clear. tested bit if not applic 
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-opt .fc.mex.' '\ 

»'c) 1995. Copyright Corporate Computer Systems, Inc. All rights .reserved. 

.\DGCST\rsde cIS. asm: decoder Reed. Solomon decoder 

* title 'RS Codec 64714 decoding program' 
include ,'box_ct 1. asm' • 
include .\ common \ioequ. asm' 
\" include./ rstest .asm' ■ ' . 



• this program will decode data in the input buffer according 
; a. decode profile with format as follow: 

;. - parity byte, message byte, repetition times -- first block 

parity, byte , , message byte, repetition times t-. 2nd block 



parity byre, message byte, repetition times.O 
the output data will be placed at output buff er 



last block 



■ section 
xdef 
. xdef . 
• ' ' xdef / • 
xdef 
xdef 
. xdef 
xdef 
.. xdef 
' xdef 

org- 

' strdecl6_l_yhe 
pbyte ; 
mbyte • 
cbyte 
dbyte . 
inbyte 
raapbyte . 
RsR3Tmp . 
RsLpCnt 
RsLpCntl 
endrdecl6_l_yhe 
endsec 

".• section 
■ xdef 
xdef. 



highmisc ' 
pbyte 
mbyte ; 
" cbyte 
dbyte 
inbyte 
mapbyte 
RsR3Tmp 
RsLpCnt 
RsLpCnt 1 

yhe : 

ds • • •" : 
ds .- 
ds : 
ds : 
ds 

ds : 
ds 

ds.- 

ds : 



hiahmisc 
PROF! \ 
CodeMinLen 



/parity byte' ' . 

; message byte 

; codeword byte 

; delay byte . 

; insert " zero byte 

;mess pari byte 

;tmp store r3 

;Rs. Loop replacement 

; Rs Loop rep 1 acement 



formula that cal the legency .delay 
(P)parity, (Ml message, delay, repetition 
delay - (16MP+M) P*P. +4*P «-73) ./ 6 - 



yhe: 



org 

strdecl€._2 yhe 
PR0F1 ~ 

dc - -• 16 



L25.1' 



;RS profile 
; RS decode . 
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dc • 
;. dc - 
dc : 

CodeMinLen ' 
dc ;- 
dc • ' . 

e ndrde ciS_2 _yhe 

. endsec. 



14,129,: 
."0.0. C 
0.0,0,0 
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1,6,6, 8, 10, 14,18,24/30, 38,46 
56.66,78,90,104,118 - 



;Rs code-.ir.in length per block 
;t«0,l,2; ,.,io 
.;t-ll, 12, ...,16" . 



; RS decode routine. 



This code is for RS decoder chip that the inout is alwavs enabled 
but output wi.l be enabled when we have the output coming- 

on entry 



rl 






r3 






:r6 " 


ufl i» a 


ptr in X SPACE . 


; on- exit 






; rl 


n ^ c • Tftvo ■ ' 
* • a i. \j y c u 




r2 


: . destroyed 




Vr3'- 


; : . destroyed , 




'. r4 . 


: destroyed 




'- r5 


: - destroyed 




r6 


. : . ' . destroyed 




; a 


:. < destroyed 




b ' . 


destroyed 




X0 


destroyed 




XI 


destroyed 




; . . yO 


: destroyed 




- y- . ' 


destroyed 




• org' 


• •Pli: • • 




rsdecie 






; initial here 






- move 


• #-l.m& ' 


;reset reg r6\tc linear 


. move 


#0.n6 , 


"... ; reset n6. to ,0 


move 


#-l.-ial. 




move 


#3-1, m2 


. ;mod- 3 — 2, 1, 0 " ■ 


• move 


' #-l.m5 . 




' move ■ 


#2.r2 ■■■ 


■vsetto first byte V 


.move '\ 


' ' #0..r5 . . 


; wore. count 


move " ■" 


■ #>24,x0 . 




move • 


x0,y:rssc -\ : .'- 




. move : 


■' x: (r6) *,xQ ; 


•:. ;set for rsgetvalues ' ■ 


move 


' x0 ,y: rscurwd 


Behtry 






" bclr 


■ «i.'x:<<M_PQ 


;turr. or. the tit elk. 
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; SOFTWARE RESE"! 



«3D8CS.X:<cM BCR. 



;se: y: for 8 wait state ... 



No laser 



clr . '. 


a ■ " . 


..•zero '"" : ; ■ ; "■' 


- move 


al.y :RSRegS 


..•reset ir* case.' 


f cr some 


clock tc pass away for the completeness of reset 


do .'. 


#40C- _resetch 










rh 






message 




x uin ■ prot lie . 


clr "." 


.a * y i t r 3 i » » xl 


; parity. 


move 


a , y : inbyte : 


;set no- insert'.. byte 

■ ■;. ' .'" ■ ; V ';• :\\..- • ' 


• move" 


. xi,y:pbyte "• 


move ■ " 


v : * i r 3 / * , a 1 




. move 


al, y : mbyte 

.•'■'* . v . 


; message length 


s whet Her 


add, z^ro is needed . 




neve 




ige» pariw/ nyte ■ . 


. lsr 


a- ; 


;/2 •-. \ 


. move 


a CoaeMinLen , r4 . 


;get min codeien . . 


move 


a.n4 


;get T ■ 


. move 


y: mbyte, xl 


;get message byte len . 


'. move " 


. y : (r4*n4J , a 


;get min len" allowed 


cmp 


xl.a . ' V ' 






" < Nolnsert 






xl,a ' ■ ■ *■•.-.. 




. move 


. a.y : inbyte 


; store insert byte num 


move 


y: inbyte, a , 


;get inserted byte 


move 


y : mbyte, xl ," : -v. 


add 


xl; a y :pbyte.xl 


; codewordieght =mbyte+pbyte+ inbyte ■ 




xl.a 


; codewcrdleght -mbyte *pbyte* inbyte 


; block 1 


ength 




move 


ai,y:RSRegl- 


;a4»0,a3»l only 4 0MHZ elk and C5 and 


move \ 


al > y : mapbyre " 


• save message * parity byte ; .. 


move . . 


. y:.mbyte/a ■ 


;.get meaasge byte. , 


move 


*>i.xi • ■'- 




; sub 


xl.a y:mbyte.xl 


•get message; byte 


move - 


-al . y : cbyte ■ 


; save message byte length -1 : • 


:he delay 






move . 


y :pbytei xO . 


,;load xO .-■*.-•'. 


mpy : 1 


.*xC , xO, a 


;p»p * "....■-;■*. */'' 


move ■ 


aO , al • 




- lsr ■ 


a #>73,x: 


;a p**2 ~" ." . 


add : . . 


; xO-.a y:pbyte,b ; 




.' Is! • 


. b. ■ '; al,x0. 




: : lsl 


c • y : maccyte . al . * 




aid; 


' xC.c ' ' 
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, Isl ■ • • • a . 

Isl- " a 
Isl a 
'• Isl ' a 

add * \x0,a 

•lsr ! a ■■ ' 
■ ':V 1st a 

. . lsr • a ■ . 

; cal the delay 



bl,x0 
#>l,xO 



sub 
sub 
sub 
move 



xl , a 
xl,a 
xl,a 
al , y-.dbyce 



y :pbyre,xl . 
y: inbyte.xl 
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;~x,16 / 



; I6x (m+p) 
;/8 



;get p byte".' 

; get /insert byte 



move y : pbyte , al . 
; -Wr parity length 



move 
lsr. 



al,y:RSReg2 

"a 



; Wr correction power, t number 
move '. : : ai # y:RSReg3 
. .move ■■ #>32,al 
; Wr synthesis clock 



move 
move 



al ,y :RSReg6 
#>0,al 



delay without output reading ... 
' ;fr of bytes to be PARITY BYTES 



,a4*0,a3»l elk. CS/WR pulses are active 
;/2 get correction power. 



;a4=0,a3*l only "reset- pulse. and elk 
;set SYMBOL Synthesis of the RS codec 



;N at address 5 . 

";set SYMBOL division 8. bit - per symbol . 



; Wr bit per symbol 

move al,y:RSReg7 
; reset again after all register have 



move 
move 



#0,al 

al,y :RSReg8 



;. wait for some time 

.do #4 00,_resetch2 . 

■ nop \ ™. . 

_fesetch2 

: bset ; : #l,x:<<M_PCD 

;; Initialization is completed. 

']'.. movep #$0101,x:<:<M_BCR 

. ; RS -.'decoding ' start . 

.move y:(r3)+,x0 
move xC,y:RsLpCnt 
•move-' r3,y:RsR3Tmp ; 



. " ; address 6 
been filled . . 

; reset again 



;40 MHZ elk is there r. . 

; turn off the bit. elk after reset' 

;set low duration, of "os" (chip sleet 

;load the repetition time...-'... 
;save :3 for later 
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_RsLoop 7 .'. 

; gee firsr, input byte . / 

. move #8,n4 
jsr " <rsget values 

; or. FRAME START SIGNAL .and first byte ; 

move . #>$100,xl 
..'-.pr xl,a •■ 



do . #8,._dtasndl00 
movep aI,y:<<RSIN . .. 

_dtasndl00". 

; input message -1 byte to decode 



clr 
move 

_RsLoopl 

.. move 
•jsr , 
: do 
; movep 
_dtasndl 
~ move 
move 
sub 
'V- : jle 
move 
■ ''jtnp- 



a y:dbyte,x0. 
xO,y:RsLpChtl 



#8,n4 

<rsgetvalues 
#8,_dtasndl 
ai,y :<<RSIN 

y :RsLpCntl,a 

#>l,x0 

xO, a . 

<_EndRsLoopl 

a7y:RsLpChtl 

<_RsLoopl 



■ ;insert frame start signal : 
;The first .DATA -byte is "OR ' gated / 
;as the R-S codec thinks you are- 
; sending the first data byte at ' 
;the same time with the FRAME ... 
; start pulse." 

; SEND 1st data byte- and also RAISE the 
; FRAME START PULSE 



; initial loop . count 



;a4*l,a3=l only elk and data 

; test loop cnt : . 
;dec count . 



;resave loop count 



_EndRsLoopl 

; insert zero message byte .to decode; if it's not zero. 



move 

tst - 
jeq 

clr 
move 



y : inbyte, a 

a. - . . : 

<_NoIntion,; - 

a • y: inbyte, xO 
xO,y:RsLpCntl - : . 



;chk if insertion 1 is needed 



. /initial loop count 



_RsLoop2 



do 



• 88, dtasridi 



dtasnd3 



movep . al,y:<<RSIN 



move y : RsLpCnt .1., a 

move. , ; #>l,x0 

sub x0,a ■• 

j le ■ <_EndRsLoop2 

move . -a7y :RsLpCntl= 

clr :■ ; . a 

j m P. ; <_RsLoop2 



. ,a4-l, a3»l only elk* .and data 

\;test loop cnt • 
■"v ;dec count 



; re save loop count 
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_EndRsLoop2 * 
_NoIntion ... 

; input parity byte to decode- 



a . . y:pbyte,x0. 
. x0 , y :RsLpCntl 



clr 
move 

_RsLoop3 

move 
jsr 

■: : do 
• movep, 
_dtasnd5. 
~ . move 
move " 
sub 

. jle .; 

move 
jmp ; ' 
• _EndRsLoop3 

; push zero input for delay. byte 

a 



r initial, loop coiin: 



#8 .n4 . 
<rsgetvalues. 
*8,_dtasnd5 
ai,y:<<RSIN 

; y:RsLpCntl,a 
«>1,X0 

xO , a 

<_EndRsLoop3 
a7y :RsLpCntl 

c_RsL0Op3 



;a4-l f a3-l only elk and data 

;test loop cnt ; 
:;dec count 



; re save , loop count 



• clr ' 
... move 

RsLoop4 

do ". • 
movep 
_GdatalQ0 
~ • '. move 
move 
sub 
jle • 
. move . 
■ . clr 

jmp . 
_EndRsLoop4 



y:dbyte,xl 
xl,y :RsLpCntl ' 



#8 , GdatalOO 
al,y:<<RSIN 

y :RsLpCntl,a 

#>l,x0 

x0 , a 

<_EndRsLoop4 
a,y:RsLpCntl 



<_RsLoop4 



; reading decoded data output 



move 
move 
move 



y : mbyte ,xl 

*>$so,yO 

#>$eooc,yi 



move xl,y:RaLpCnti 



. .RsLoopS - 
clr 
do ■ 
. movep 
_Gdata200 / . ' . 

move 
and •'. 
■ move 



a . #>$ff,x0 

#8, Gdata200 
al,y:<<RSIN • 

y : RSODT , bl 
x0,b " 
• bl,xO 



; initial loop count 



;a4«l,a3»l only elk and data 

/test loop cnt . . 
;dec count 



;resave loop count 



test byte counter and put output byte 



-;shift right 16 bits 
: ; shift right 8 bits 

.•initial lp count 



;a4-l,a3«l only elk and. data; • 
.;provide clock and read: data 
•'; get '.set; for .shift 
: to. right pos .of. output . buffer. 
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move 
move 
cmp 
jne 



fst byte 



;mpy 
clr 
move 
and 
move 
jmp 



JTndbyte 



cmp 

jne . 

mpy . 

clr 

move 

and . 

.or. ■ 

move 

jmp 



_Lstbyte 



clr ;. 
move 
and 
or * 
move 



r2,a • 

*>2, xl . 

xl,a #>i.xl 

<_Tndbyte 



x0,yl,a #>$ff0000,x0 
b " •: "* 
. a0,bl 
x0,b . 
bl.x: <rl) ■ . 
<_EndAByte > ' 



xl,a 1*0, xl' 
<_Lstbyte 

x0,y0,a -#>$ffOO,xO 

b < ' 

aO/bl 

xO,b x: trl) ,xl. 
xl,b 

bl/x: trl) .. 
^ < EndAByte . 



*>$ff ;bl •' • 
xO.b • x: (rl) ,xl 
xl,b tr5) + 
bl.x: <rl)> 



•get byte count 



;shift right 8- bits; 



; 'shift ;right : ;.16' bits 



;or it with previous'. 8 bits 



;mask off last 8 bits./. 

; increase word- count 

;save the musicam data for desort 



_EndAByte 



move 
move 
.move 
sub ' 
.. Die . 
move 
.jmp. 
EndRsLoopS 



(r2>- 

y :RsLpCntl,a 
#>1,X0 

xO, a ; 

, <_EndRsLoop5- 
aTy :RsLpCntl 
<_RsLoop5 ; 



; 2-i-O mod 
;.test loop cnt 
;dec count 



;resave loop count 



forget inserted zero message byte 



next 



- move 
-tst 

• 3eq ' 

• clr ■ 
move . 

RsLoopfi 

;• • do 

/ movep 
_dtasnd20 

; move 
' move 
" sub- . 



y : inbyte , a. 

a - 

<_NoIntionlO 



xO,y:RsLpCntl 

n 8. dtasnd20. 
al,y:<<RSIN 

y:RsLpCnti#a- 
' #>l.x0. 
xO f a. 

< EndRsl-oop6 _ 



y:inbyte,xO 



,?chk if insertion' is needed 



; initial lp count' 



; a4«i.a3»l only .elk and data 

;test loop cnt • 
, "; dec .count . 
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* move 
• clr 
jmp 

_EndRs Loops 



a , y : RsLpCnt 1 
a 

<_RsIiOOp6 



;resave loop ccun: 



_NoIntionlO 

; forget parity output at the end of frame 



clr / 
- move 

RsLoop7 
■~ do 

movep 
_Gdiata300 
. ™ . . . move 
move 
sub '■• 

• jie ; 

move 

• clr ' 
jmp ... 

_EndRsLoop7 

move 
move 

' sub -. 
j.le 
move 

: jmp. •' 



a y :pbyte, xi 

xl , y :RsLpCntl 



#8, Gdata300 
al,y:<<RSIN 

y :RsLpCntl,a 

#>l,xO 

xO, a .. 

<_EiidRsLoop7 

a7y:RsLpCr.tl 

a 

<_RsLoop7 



y : RsLpCnt , a 
.**>!, xl 
xl , a 
<_RepEnd 
a , y : RsLpCnt 
<_RsLoop 



;■ repetition end 
_RepEnd 



move 
nop 
move 
tst 
j ne. 



y;RsR3Tmp, r3 

y: (r3) ,a 

-a • 

<_Beritry . 



; patch zero to make 96 (a full frame) 



move 
move 
sub 

. jle . 
do 

move 
PatchZerol 



*>96,a 
r5,x0 ... 
xO,a #0,x0 
<_ PatchZerol 
a7 PatchZerol 
x07x:(rl)- 



; end of RS decoding for One Profile 

.move . '■ #- 1, m2* . . • 
.: movep ■ #$0001,x:<<M_BCR 

TtS. , ./ : " . . 



; initial. lp" count; 



; a 4 = l , a'3 «i only cik and data 

;test loop' cnt" 
;dec count - 



;resave loop count 



; test loop cnt 
; dec count . 



iresave, loop /count 



; reload profile ptr 

;test if a * 0'. at last RS . block. 



rinc to next frame 



;set all external io wait states 
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• . 3P C . - " f r . 
; v (c) 1995 . Copyright Corporate Computer Systems', Inc. . All rights reserved. / - 
; \DGCST\bitalloc.asm:. use the. o^psych parameter (safety margin) ... 
; This routine is used to allocate the bits". 

; It. allocates at least some. bits to all sub-bands with" a positive SMR 
; • It allocates in three phases: : 
;- A., allocate all sub-bands until they are- all below 

•"■ . . .the. Global Masking: Threshold 'regardless as to how many 

■;' ■■ . bits it takes) • 

■ note 1... a limit (sub-band boundary) is set which requires "'. 

all sub -bands up to the boundary require at least 
•"• ■ index 1 be allocated even if the signal is already 

-below the Global Masking Threshold. (This provides •'*' 
; a noticeable improvement in continuity of sound) • ' .. 

After Phase A is completed, a test is made to see if the bit poo 1 
... was overflowed by the allocation. v. " 

; . a. if the frame fits,. Phase B is skipped and Phase c is done 

b.. otherwise, Phase B is required to selectively de-allocate the' . 
best sub-band candidates. 

; on .entry 

; '.. y:<stereo » flags:. • 

; (set on entry) bit 0 indicates whether or not left channel active 

. Q » channel not active 

1 * channel active for framing 
? . . bit 1 indicates whether or not center channel active . : 

0 « channel not active,..;". 

1 * channel active for framing 

bit 2 indicates whether, or not right channel active . • 
; C -channel not active 

1 - channel active for framing . 
bit 3 is used to indicate left vs. right channel-', 
applies if bit 4 set to o (NOT center channel) - 

0 - looping through left channel arrays . ; 
• ; 1 ■ looping through right channel arrays 

bit 4 is used to indicate center channel vs left right . 
** . : . 0 - process left or right, channel arrays. 

1 « looping through center . channel arrays 

. . bit 5 . is used as the FirstTime switch in an allocation 

i 0 - cleared if any allocations were made 

*' 1. - no allocations made to any sub-bands 

bit 6 is used for critical de-allocate and allocate passes: 
:". . . with below, masking threshold being a criteria 

; •" - . ■ de- allocate: 

; 0 «. select from any sub- band channel 

; V 1 ■ select from only .those below mask . 

- allocate:' 

. .0 * there are sub -band channels not below mask 
1 .* all sub-bands are below mask 
; ■ bit 7 is used for critical de-allocate and allocate passes:. 

de-allocate: 

;\' V 0 « select from any sub -band channel 

; - *'.■-' . 1- ■ select .from those with 2 or more allocation 

; . / • ; allocate: " 

0 - are sub-bands :not below hearing thresh , 
. . . 1 - all sub-bands are below hearing thresh 
bit- 8 is used for critical de-allocate and allocate casses-. 
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; ' " -85- • ■[ - 

de- allocate: 

. - 0 - select from any sub -band channel 
1 - select from any sub-band channel 
. allocate: for final pass after bit allocation timer . 

0 • timer interrupt not- yet sensed' 
"1 -timer interrupt was sensed 

bit 9 is to simply indicate that the sub-band limit for. 

allocating at least ONE position has-been reached 

within a current loop: 
".' V t: •- .' 0 • NOT at sub-band limit 

1 - reached" the sub-band limit . 

..bit 10 is. to simply indicate that the maximum sub-band for 
■■■ . consideration for allocation has been reached 

. .. within a current loop: 

■ - C * NOT, at maximum sub-band limit 
\- X m reached the maximum sub -band limit ' ' 

y:audbits » number of bits available for : sbits, scale factors and data 
„y:<usedsb. - number of sub -bands actually used 

;y:<limitsb .=» number of sub-bands requiring at least one. allocation 
y:<qtalloc » timer interrupt set to signal quit allocation loops 
r0.» addr of the SBits array fx memory) 
rl « addr of MinMasking Db array (x memory). 
. r2 -addr of SubBandMax array (x memory) 

r4 -addr of the SubBandPosition array (x memory) 
r5 ». addr of the SubBandlndex array (x memory)- 

on exit ■ ' : ; .. 

. . a =■ destroyed 

b = destroyed ' 

x6 = destroyed 

xl' = destroyed' 

ye'* destroyed. . -' ■ I 

yl s destroyed ' •- 

r3 » destroyed- - 

rS -destroyed 
' nO ■« . destroyed 
.•nl = destroyed 
■ r.2 » destroyed 

n3 » destroyed,. 

n4 . - destroyed 
• n5 - destroyed ", 
' n6 » destroyed; ; 

AtLimit array by sub-bands (32) : 

"• -bit 0 set when allocation is below the masking threshold 
bit 1 set when. allocation is below the threshold of. hearing 
bit 2 set when allocation is' at the limit of maximum position. .. 
or there are not enough bits to allocate 
■ the sub-band further, 

include 'def.asm' '.'.'• 
include 'box_ctl .asm' ' 

'section lowmisc : /•*/: 

xdef / . KNRsub 
. xdef. . .AvlBits"' '. 
. xdef ; - TotBits ..." 

"".xdef - HldBits ' * '.' 
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xdef 



.86- 



count 



org ' * : yli : 
stbitalloc_yli 

MNRsub ds 1 

AvlBits ds _ ; ■ 1 

TotBits ds . 1 

HldBits ds . /I 

•.count ds ; ■ ' . 1 ■ ■ : 

endbitalloc^yli 
endsec 

section highmisc 



/count cf entries in de-allocate tables 
/available bits to allocate 
/current bit count .allocated 
; sub-band critical allocation 
; sub-band counter 



■ • xdef 
xdef 
•.* xdef V 
' xdef. 
xdef 
xdef 
xdef ■ 
".'■xdef : . 
xdef 

org 

stbi tal loc_yhe : 

Bits Add ds . 
BPosAdd ds 
BInxAdd ds 
AllwAdd- ds . 
MaxPos ds 
MNRsb : ds. 
MNRmin ds ■ 
MNRinx ds. 
MNRpps ds 

. endbitalloc_yhe 
* endsec : 



BitsAdd 

BPosAdd 

BInxAdd 

AllwAdd. 

MaxPos 

MNRsb 

MNRmin. . 

MNRinx 

MNRpps 

yhe : 



1 
1 
1 
1 
1 

1: 
1 
1 
1 ' 



;save address of SBits array 
;save address of SBPosition array 
/save address of SBIndex array 
;save addr of applicable Allowed table 
. ;Max Position per selected Allowed table 
;curr sub- band for allocation 
; value of curr sub- band for allocation . 
;new .index for selected- sub-band 
•new allowed position for selected sb 



. section highmisc 



xdef 
xdef 
xdef 
xdef 
xdef 



AtLimic. 

SBMsr 

SBMNRmax 

MNRval 

MNRsbc 



' org 
stbitalloc xhe 



xhe : 



:lags set when a sub-band reaches its limit of allocation: 
(one per 32 subbands) . . 
• bit 0: set if below the global maslcing threshold 
bit 1: set if not used or fully allocated 



At Limit, -ds 



NUMSU3 BANDS 
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;This* array holds the MinMaskingDb - 
SBMsr • ds ... . \ NUMSUBBANDS 



SubBandMax' for each of .the 32 subbar.ds 
.; Mask -Signal ratio by sub-band 



; This array holds the deallocation- selection values:. 

(MinMaskingDb - SubBandMax) r SNR [position at next lower index] 
;f or each of " the .0-31 subbands ' . 



SBMNRmax 



MNRval 
MNRsbc 



ds. 



ds 
ds 



NUMSUBBANDS 



NUMSUBBANDS 
NUMSUBBANDS 



; Mask -to -Signal ratio 
; plus SNR ( PrevPos ] 

;table of * ordered .values sub-band 
;tabie of associated sub-band 



endb i t a 1 1 oc_xhe . 
endsec 



section xtables 



-.. xdef 
- xdef 
xdef 
' xdef; 

org . 
stbitalloc xtbl 



ndatabit 
NDataBit 
NSKFBits 
SNR 

xhe: .. 



;This is the. addr of the selected table, ISO or CCS compression,/ 
. ; . for the number. of bits for. data allocation by position 

ndatabit ■' ■ ds 1 . ;addr ISO or CCS compress NDataBit tbl 

;This is the ISO table for the number of -bits for data allocation by position 
NDataBit' '■ - - 



dc 


• ■ - . 0 *NUMPERSU3BAND 


; index 


n 


0, 


no transmit 


e 


C 


bits 


dc 


5*NUMPERSUBBAND 


; index 


zt 


1. 


packed 


* s 


60 . 


bits 


dc - 


7+NUMPERSUBBAND 


; index 




2. 


packed 


s 


64 


bits 


dc 


9*NUMPERSUBBAND . 


; index 


m 


3 




9 


103 


bits 


dc ■: 


10*NUMPERSUBBAND 


; index 


m 


4, 


packed 


_» 


120 


..bits 


dc 


; 1 2 *NtJMPERSUBBAND . 


; index 


K 


5. 




144 


bits 


dc. 


. 1 5 * NUMPERSUBB AND 


; index 


m 


6 




m 


. 180 


bits 


do 


,. 1 8* NUMPERSUBB AND . 


; index 


■ m 


7 






216 


bits 


dc 


21*NUMPERSUBBAND 


,- index 




8 






.252 


bits 


dc 


. 2 4 * NUMPERSUBBAND 


; index 


a 


9 




' a 


288 


bits 


dc 


2 7 * NUMPERSUBBAND 


; index 


s 


10" 




»- 


324 


bits 


dc ; 


.. . 3 0 * NUMPERSUBBAND 


. ; index 


' m 


11 






.360 


bits- 


dc - 


33*NUMPERSUBBAND; 


; index 


s 


12 






396 


bits 


■.dc'-- ■•• 


3 6 *NUMPERSUBBAND. . 


"; index- 




13. 






432 


bits 


dc . 


. 3 9*NUMPERSUBBAND. ■; 


; index 


m 


14 






468 


bit's 


dc 


4 2 * NUMPERSUBBAND 


; index 




15 






504 


bits 


dc 


4 5 *NUMPERSUBBAND 


; index 




16. 






540. bits 


dc, . 


' 4 8 * NUMPERSUBBAND 


; index 




17 






576 


bits 


s the 


CCS compression table for number of 


bits 








for . 


data allocation by position 
















dC;. " 


0 * NUMPERSUBBAND /'•. 


; index 


c 


0.*. 


no transmit 




0 


bit's' 




4 * NUMPERSUBBAND " 


; index 






packed . 


m 




bits 


or 


£ * NUMPERSUBBAND • 


; index 




2 . 


packed. \ 


'■ m 




- £ ^ - c 



SUBSTITUTE SHEET (RULE 26) 



BAD 4" 

. L. 



WO 96/32805 



PCT/US96/04835 



.88- 



dr. 


. 6 * MUMFERSUB3AND 


. ; index 


s 


3 . % 


■ 


96 cits 


dc 


1C * NUM PER SU3 BAND 


; index 


s 


4 , packed 


m 


120 


bits 


dc 


12* NUMPERSUBBAND . 


; index 


m 


S * 


XX 


144- 


bits 


dc 


15 # NUWPERSUBBAND . . 


; index 




6 . 


• • m 


180 


bits 


dc 


IB* NUMPERSUBBAND - 


; index 




7 " 


a 


216 


bits 


dc-: / 


■ 21* NUMPERSUBBAND 


; index. 


. ■ 


8 ' ..' 


m 


252 


bits 


dc ■ 


24* NUMPERSUBBAND ■ 


; index 


m 


9 


m 


288 


bits 


dc 


. 27* NUMPERSUBBAND 


. . ; index 


m 


10 


s 


324 


bits 


dc" V 


3 0 * NUMPERSUBBAND - 


; index 


-a 


ii ■ • ■> 


' m . 


360 


bits 


dc '. . 


. 3 3 * NUMPERSUBBAND . 


.; index 


's 


12-:. 


B ■ ' 


396 


bits 


dc 


3 6 * NUMPERSUBBAND . 


; index 


-s 


13 


■. . c • 


432 


bits 


dc 


. 3 9*NUMPERSUBBAND 


. ; index - 


s 


14 . 




468 


bits 


dc . 


4 2 * NUMPERSUBBAND .-" 


; index 




•15 : 


■ 


504 


bits 


dc . ' 


4 5 * NUMPERSUBBAND 


; index 


•m 


"16 . 




540 


bits 


dc • 


• 4 8*NUMPERSUBBAND; 


index- 




17 


■ m 


576 


bits 



;Each sub-band, if it is transmitted, .must send scale factors.' The 
;Sbit patterns determine how many different scale. factors- are transmitted. 
. ;The number of : scale . factors transmitted may be 0,1,. 2 or 3. Each. scale 
; factor requires 6. bits.:- 



?Sbit patterns 

; . . 00 

. ;•■ .01 

-10 
. 11 



Transmit; all three scale factors .* .18 (3 * 6 bits). 

Transmit the second two scale factors. 12. (2 *.S bits) 

Transmit only one scale' factor 6 (1* 6. bits) 

Transmit the first two scale factors 12 . {2 * 6. bits) . 



;The NBits array is used to determine, the number of bits to allocate for the 
•scale factors. NSBITS (the 2 bits for SBits code) are added to account for 
;all required scale factor bits (18+2, 12+2 , 6+2 , 12+2) . 

NSKFBits . ■ ' 

dc 20,14, 8,14 

;This is the table for Signal to Noise ratio by position *; - - ' 

include ; \xmicrp\snr . asm' 

endbitalloc_xtbl . 

endsec ; v 

- org. . . phe: 

bitalloc ;.'.'. '*. 

;Save the array starting addresses :■ . 



move 
move . 
move 



r0,y :BitsAdd. 
r4 ,y :BPosAdd 
r5 , y :BInxAdd 



ysave register of SBits array 
save register of SubBandPosition array 
; save register of SubBand Index array . 



; select the ISO or CCS comperss ion . table for NDataBit: 



move . ' #NDataBit,r5 , ,,; standard ISO table ; . ' 

move' #18, n5 ; offset to CCS compression table. • 

"jclr *0,y:.<cmprsctl._bita_20_A . ; if not applicable, continue 

move'- ,' : -IrS-jVnS . \ 



select -the CCS compression table 



_bita_20_A 
\ .'" move 



r5,x:ndatabit 



;set addrof NDataBit table' for al 
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\set up che MNR array " 

'-move' #SBMsr,r5 
;apply the safety factor 

move y :b_psych,y0. 
;loop through all sub-bands.' 



;addr of Mask -to -Signal by sub-band 
;get the safety factor 



.do 
move . 
move 

.sub . 
sub . 
..move 

bita 30 A 



#OTMSUBBANDS,_bita_30_A 

x: (r2> *,xo .'. 
;x: <rl)+,b . 
xO.b. 
y0,b 

b,x: (r5)* 



;get a channel SBMax ; ■ : ; 

;get its channel MinMsk . 

;MinMask - SBMax « Mask-to-Signal ratio 

; apply. safety factor to channel value. 

;store for test if below mask already . 

,;END of! do loop ■ 



; set .the working value for bits available for allocation. 



move 
move 



y:audbits,xO / 
x0,y : <AvlBits 



;get standard available bit cr.t 
; store as working bit cnt 



bita 40 A 



(c) TotBitS « 0; 



/* start the bit allocation. counter . */ 



.-total bit used, xl = 
,-yl - 0 to initialize 



1 for start index 



'-. clr '• r. a #>l,xi . " 

move a, yl 
move -. a,y:<TotBits 
■move." ,a,y:<count ;start the sub- band, counter 

bclr. #AT_LIMIT_SUBBAND,y:<stereo ;NOT yet at sub-band limit 

; which require at least 1 allocation 
'bclr" . #AT_USED_SUBBAND, y : <stereo ;NOT yet at sub-band maximum 

;. limit for coding : used sub-bands 

;initial allocation for all sub -bands; 

. 1. that are within the use (less than OsedSubBands ) . 

2. with a MinimumMasking to MaximumSignal above the masking threshold 



move/ :. #SBMNRmax , r 0 

move #SBMsr,rl 

move - y:BitsAdd,r2, 

move y:AllwAdd,n3 

move , . y : BPosAdd , r4 

move y:ainxAdd,r5 

move ~ #AtLimit ., r6 



;addr of de- alloc Max signal -noise 

;addr of Mask -to- Signal by sub -band 

; set register of SBits array 

;init the current Allow table 

;set register of SubBandPosit ion array 

;set register of SubBandlndex array 

; point to. SubBandAt Limit array 



'/clear , the n registers for the. channel reference. 



clr 
move 
. move 
move 
move 
move 



a - 

a,nl 

a » ^2 .'" 
a , n4 
a,nS 
a,n$ *-* 



#0,n0 



; SBMNRmax array 
• ;SBMsr . array 

; SBits array 

■;SBPos array . - 
..;SBIndx array . 

; At Limit array 



SUBSTITUTE SHEET (RULE 26) 



WO 96/32805 



PCT/US96/D4835 



■90- 



ir.itial allocation pass 
dc all required sub- bands 



do v #NUMSUBBANDS,_bita_990_A , ' 

initialize the per tinent sub -band. values to 0 ■■ 

. move ■ \ yl,x:(r6*n€K ■. .-clear allocated .limit flag 'At limit";.' ' 

•; move : yl . x : (r5«-n5} \ ;clear allocated index . (SBIndx: . ".""/■ 

_ move yl.x: (r4*n«; : • ;clear allocated position iSBPosi . 

if we reached* the usedi sub-band limit , •■ • . 

take this one out of the picture completely * 

.jset. #AT_USED_SUBBAND.y:<stere6,_bita_180_A' • ' 

move • . y :<count ,yC . . .. - -get current sub -band (00-31 ! 

see if we reached the- used sub-band limit.-". 

move y ;cusedsb..b ;get count of used subbands for testing 

; cmp ■ y0. b ;see if sub-band. not to be coded. 

• jgt . .<_bi^a_50_A ; if not, continue 

bset #AT_USED_SUBBAND,y:<stereo ;just reached sub -band maximum' 

jmp . <_bita_180_A : ;.take completely out cf use • 

bita_5C_A ■ • • .. 

if we reached the sub-band limit for those requiring at least one sub-band, 
see if. we have anything to allocate to get below the Global Masking Threshold 

■ jset ■■ 8AT_LIMIT_SUBBAND,y:<stereo._bita_90_A .' 

see if at- least one allocation is : required regardless , of signal to noise ratio 

move y : <limitsb, a _ ' ;get sub-band limit for at least 1 alloc 
- ' cmp yO.a \ ■ ;if there is- initial- allocation 

-13*' ' <_bita_95_A - continue 

bset - #AT_lIM:T~SUBBANi:,y :<stereo . ; just reached that • limit 

bita_90_A ' /; ;; V" . 

ctherwise, see if below Mask -to- Signal 

..move x:(rl*nii,a . /get sub -band's Mask-to-Signal ratio 

.. est- '; ' a • . " ;test Mast-to-Sig fcr positive value 

jgt. .' .<_bita_190_A • . ;if below., masking thresh, set flag . 

J:ita_95_A * ;*. : .v' 

find Signal -to-Noise position that puts Signal below Masking Threshold 

;start at 1st Signal -to-Noise position 
•';addr of Signal? to-Noise table 
; ;get signal to mask ratio. 

_bita_110_A . 

;get the Signal -Ncise "at pcsiticr. 
;add MKR to SNR fcr test 
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move- ' 


xl,r7 


move 


*SNR,n7.- 


move 


. x: (rl*nl).,yC 


d p ".; 


a NUMSNRPOS IT ICNS - 


move 


x: Vr7*n7» .."a • 


add 
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- ji* <_bita_100_A \'". : \\ ;still above mask." cry next position 

idw below the Global Mask, quit the iocp . 



enddo 
3ntp 



<_bita_ll ! 0_A 
_bita_100_A ' . : > 

; try the next position and continue, the loop 



V found position, stop ' 3NUMSNRPOS-1 .loop 
;co to- end of loop • ' 



oita 



move 

:o_a 

move 
move 
ctnp 

jge 

move 



(r7) * 



r7.y0 -.' 
y:MaxPos. a 
y0,a yl v r3 

< bita 115 A 

' ;al/yC ; 



;try next Sig-Noise position - : 

;END of ttNUMSNRPCSITIONS-1 dc loop . 

.save the matched SNR position 

; to test if exceeded, max position : 

: ; is counted position greater than max 

; & start at index 0 with allocation*' 

;if not , go. on to match the index 

; set position at. the maximum position 



_bita_115_A , 

;find index cf the position that best matches the selected' SNR position 
' dc"-". \ #mMrND£XX£,_bita_130Jl, 



move 
cmp 



x: (r3+n3) .a 
yO, a 

< bita 120 A 



;get the sub-band indexed position 
; compare ' to ' selected , position ' 
;match not found yet. try next index 



;found the matching index, quit the loop 
< bita'130 A 



enddp 
jmp 



; found index, stop #NUMINDEX£S loop 
,-go to end of loop " 



jDita_l20JV.- 

;.try -xhe next index and continue the' loop' 

• move -(r3)+ . . . . -■ ; try position at next index 

; see. if .end .'cf -. the table line reached 



move 

tst 

jne 



x: Cr3*n3) .a 

a . ' ". 

c bita 125 A 



get this next index totes: 
test for an index of zero 
;if not C.ikeep looking 



: index cf zero indicates no higher indices apply, back up 1 : and use that.. 



move, . 
' bset . 
bset 
move 
■ enddc- 
• :mp; : - 

:zs A 



(r3)- ;use previous inaex . 

# ALLOCATE LIMIT, x: (r6*n6i ; set.the completely allocated bit 
SHEARING LIMIT, x : ir6*n€ / ' .. ;set the completely allocated bit. 
x* ;r3*n37;a - ; assign the last index position 

- ■ . ; found index, stop. 8 NUM INDEXES loop 
< bita 13C A- -:.;?=> tc end of loop . 
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_tlta_130_A ■.";END".cf #NUMINDEXES cc. loop 

;set the initial, al location . SubBand Index and SubBandPosition ' 



move 
move 



. r3 .x: (r5+n5> v 
• al,x: (r4+n4) , 



;set initial allocation SBIndx 
;set initial, allocation. SEPos 



; determine the number "of scale factor tits allocated at. this position 



move 
move 
nop 
move 



x : (r2+n2 ■ ,n7 
*NSKF3its.r7 : 

x : : r7*r.7 3 ,yC . 



;get the SBits scale factor code '0-3} 
;addr SBits scaie factor tit count tfcl 



;save the scale factor bit count 



_bita_I40_A ■: 

radd the bits required for the signal data 



move . 

move 

no? 

move 

add 

add 
move 



X: (r4+n4) >n7 
x:ndatabit, r7 .: '. . 

x : (r7+n7) . a . . 

y0,a . y :<TotBits,xC 

xO, a 

a,y : <TotBits ■ '■ 



;get the position 

;address of data bit . count by position,' 

;get the bit count at this position. 
;add scale factor bits/- 

and get cur r TotBits 
..•update TotBits with bits just allocated 
;save new allocated total bits . 



rcheck that Signal- to-Noise position that Signal below Masking. Threshold 



■ ; move 
move' 
move, 
add*. 

ile 
. bset 

bita 160 A 



#SNR.r7 



;addr of Signal -to-Noise table 
;get signal to mask ratio 
;get the Signal -Noise at position 
,add KNR to SNR fcr test 
; ; k set up to set prev index for. its pos 

< bita i6C A'- .-above mask, skip next statement . 

^MASKING LIMIT. x': (r6-n€ ■ . ; set AtLitr.it oartially done allocate 



x: (rl*nii , yO 

x:-(.r7+n7;" # a. . 

yb. a x:,!r5+n5) , r3 



;set the value for testing the. best sub-band to deallocate, bits from. 
; if the frame cannot, handle the full required allocation 



move 
move 

move 
add. ; 
move 
3mp \ 



x: tr3+n3}..n7 

x:(r7+n7),a 
yO, a ' • 

. a , x: tr0*n0> "y 
c bita 20C A 



rback up one index to get that position 
;get the position at the. previous index 

;get the Signal -Noise at : position 
,.;calc Sig-to-Noise at prev position ' ... 
; save in SBMNRmaix array for. later . 
•continue With the next sub-band.. 



_bita_lSC_A 

;sub-band is not--.to be coded at- all ' ;. - : ; 

bset ALLOCATE LIMIT. x : .:r6+n6 V *; set At Limit totally out of allocation 

bset " ' fcHEARING_LlMI7 ( x: ir6*n€'< ;set AtLimit at. threshold, of hearing 

bita lr:A'" ; . . .-.-V- *■"*"•' : V.' '--I. '■' 
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; sub-band is' set zz indicate' it ;s a; its masking threshed. ... 

-.-•bset *MASKING_LIKI7.x:-(r6*n6' ; set AtLimit partially done allocate • 

_bita_20C_A • ; 

finished the sub- band sc:.up "for :hc initial allocation of the next subbar.d 

;next sub-band SBMNRmax 
;next sub-band SBMsr 

;to position to next Allowed sb table 
;next sub-band SBits:, 
; next sub-band Allowed table array 
; set addr for next sur>- band " Allowed pos 
;next sub -band SB Pos : V 
;next sub-band SBIndx 
.; get current sub -band cour.t 
..•next sub-band AtLimit 
^increment the sub-band counter 
;save new sub -band 

;E20 cf *NUMSUBBAN2S dc . Ioof - ,. 

- done with the initial allocation phase, phase A 

I the deallocation, passes , initial state of control fxags, ■ 

;flag'do masking passes 
. ; allocate., index must be > 1. 
■ ;NCT final passes ' 



move 


. (r0>- ' 


move 


(rl>* - . 


move ; 


#16.r3 


. move 


(r2)- 


. move 


»,r3 i +n3 . 


move. 


.. r3.n3 . 


... move 


(r'4i* ' " ..- 


move 


(rSi- 


/ move ' \ 


y : c count . r7 


move 


izGi - 


move 




move 


. r*7,y:ccount 


_bita_990_A 





bset 
bclr- 
bclr 



# MAS KING PASS.y:<stereo 
*KEARING~PASS , y : <stereo 
O FINAL PASS.y:<stereo 



• see if frame fits or do we have to de-allocate selectively 



tr.cve . 
move 

dc 



y:<TotBitS,xG 
y:<AvlBitS,a 
xQ . a . 

<_bita_990_B ; 
*10GC',_bi-a_990_B 



;get the total bits' allocated . 
r get available bits 
;Tot3its vs BitsAvailabie 

fits, allocate ar.y leftover 



•test the bit allocation timout flag. 
] if the timer flag was trip, switch over t: 
of any remaining bits 



-the final bit allocation 



jelr ' 
iset : 
" bset ■■- 

-enddc- 
move 
jmp 



final 



mNAlTPASS.y><:stereo .set for FINA- -*te.ia 

.-stop the 3100C- loop' and exit 
; ; get the total bits . allocated 
•out cf time, de -alloc under last oasis 



y:<TotBitS,xO 
< bita 99C_C 



_bica_10_3 ' 

"nowlet^^ next de-allocation 



move - . -KSBMNRmax. rO 
move* ' • y :BInxAdd, r5.. 

.move , *AtLimit ;r6 

' move • . ' fc-yr.O . 
neve r." . r.S ■" 



•addr" of de-alloc Max signal-noise 

• set recister of SubBar.dlndex array 
; point to SubBandAtLir.il array 
.•offset tc the channel SBMNnmax 

* offset to char. SB I r.zxx \ . 
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move . r.C , nfi 
move *G , r2 
move . : r2 , y : <MNRsub 
'move * . *>1 , xl 
move - • y:<liraitsb.yl; 
move . #MNRval,n3 
move ■ ttMKRsbc . n4 . 



.offset to .chair. Atlimit ' ■. . 
,,-use r2 as a sub-band courier* .*' 
.•start cnt of de-allocate table entries 
; to test for . index of . 1 
;to test' for at least one alloc limit ' 
; get address of . MNRval . table 
;get address. of . MNRsbc table" 



;to deallocate- the 1 index if .the signal starts out below. global mask 



■move 
move 



#SBMsr.rl: 
n0.nl 



;addr cf Mask- to- Signal by sub- band 
.•offset tc chan SBMsr 



; loop thru .'the- sub -bands ' 

do y : <usedsb._bita_BO_B V 

;if nc index has been allocated, try the !next sub-band 



move 

•tSt ; 



x: (r5+n5> ,a 

a * 

< bita 70 B 



.-check, for an allocated index 
;if zero, try the next sub-band 
. ;nb allocation try next sub-band 



; if the 3rd mode of selection, no checks are made 
jset *FINAL_PASS.y : csterec, _bita_60_B 



; 3rd mode , use this one 



rif 2nd mode of selection sub-band may be below the masking threshold, but 
; -checks to make sure that, if index allocated is ONE and that the 

subrband is not . required fcr continity . 



jse: 



#HEARING_FASS , y : <sterec . _bi ta_50_B 



;2nd mode nurr. cf index 



;must be 1st mode of selection which requires that the sub- band 
be below the masking threshold 



: " #MASXING_LIMIT..x: (rS-r.S :. , _bita_?0_B 



; skip : above mask 



bita 50 B . 



Lf we have allocated only 1 index, skip this sub -band if at least one 
. allocation is required • 



'.crop 

. ' :g~ 

■ • move' 
•'" ' cmp ■ 

39 e • 
. • move, 
ctnp- 

j* *■ 
move 
tst • 

- ' jie ; ; 

bita 60 -B 



xl . a , 

• <_bita_6C_B 

r2.a . . ■"" , 
yl.a • 

< bita 70 B ■'. -.' ' 

#7l4,yi :~ 

yl.a y :<limitsb,yi 
' < bita_70 B 
xTirl*aU7b. - 
b 

■ < bita 7C B 



.-see it 



-dex at .1 



/candidate qualifies, 

; . tr.se rt .this candidate ". mtt 



,*nc. this sub-band qualifies : 

;get current sub- band 

.•see if sub- band below at least 1 ■ 

•if greater, deallocation candidate 

; if greater' than 14/ check 

;test sb vs 14. restore iitcitsb tc yl . 

;if less than 14, keep the 1 allocation 

;get Max Signal to MinMask 

; if positive, started below global 'mask 

; if. net positive .... keep the 1 allocation 



for initial de-aliocatior 
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jsr . : <ihsert_vaiue 

_bita_70_B 

; advance to the next sub-band ... 

move (r2) + ; ' /increment the sub-band counter 

. move (r0)* . ; next sub -band SBMNRmax 

move trSJV- . .. ;next. sub-band: SBIndx ■ 

move (r6)*' ; next sub- band AtLimit" 

bita_80 B. ;end of y : <usedsb do loop ' 

;if there are any entries in the. de-allocate tables, start reclaiming bits 

move y:<MNRsub,a / ;get the de-allocate table entry cnt 

. csc *"■ a , " ;test for/zero, no entries - 

' jne-. < bita 110 B • ' . ;are entries at this criteria, • dealloc 

; since there were no candidates to deallocate ( MNRsub « 0) , 
'; change the selection criteria:: , ^ , 

• ■ if we've done the final criteria and nothing to deallocate; . 

' ' . we can .do nothing here, exit (How Come???) 

) • if we've not found anything with at least. 2 indexes allocated; 

switch to select from any sub -bands, 
if we've not found anything below the .masking threshold, . 
■ switch to at least 2 'indexes -alloc - ■ 
Iredo the selection criteria. 

jset ■. #FINAL_PASS,y:<stereo,_bita_b95_B ;??? shouldn't be, exit 

jset #HEARING_PASS J y:<stereo,_bita_100_B 

jset #MASKING_PASS,y:<stereo,_bita_105_B . . 

bset # MASKING PASS, y :<stereo t : ' 

jmp < bita 200 B ;loop thru with this, criteria 



- blX - eKddo ;stop the #1000 loop and exit 

y:<TotBits,x0 . . ;get the total bits allocated \ 

< bita 990 C 



enddo 
move 

jmp.* 



bita 100 B- 

" " bclr . #HEARING_PASS,y:<stereo 



bset # FINAL PASS , y : <stereo 

■j3 - ;<lbita:200^ ; ;- , : ; loop chru with this criteria 

bita 105 3 *■■..■.'■"'•*' ■ 
~ " bclr # WAS KING PASS.y:<stereo .; 

bset - .#H£ARING~PASS,y:<SLereo . . ■ ■■ = " 

j^ <™*2?0_B . - ^-..Uoop thru with this criteria 

.•there. are entries in. the de-allocate tables .' .: 

_bita_110_B ''•;*.■■.:■.."-.■: "- ' 

;de- allocate from' the table from 1st entry to last 
7 or until enough bits have been reclaimed 

' move ^a.y:<coun^ ./ ;start counter ; thru the table 
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:hrcugh the ordered . de.-allocaticn table- 



do " y : <MNRsub,_bita_19G_B 

. move . *MNRsbc,nO 

move y :< count # rO 
nop 

• move x:"lr0+n6> . a ■ . 

move a.y:MNRsb 

t move vrO) * 

move r0,y:<cqunt 

rrestore the channel, array addresses- 
move • #SBMNRmax,rO 
move - ' #SBMsr.rl 
move- • y:BitsAdd,r2 ; 
move y :3PosAdd, r4 . V 
move . y :£IrixAdd, r£ 
"move JtAtLimit , r6 



; address of MNRsbc table '■ - - 
/current table entry index 

;get selected sub-bar.d 
.,- store current sub- band '(0-31 !. 
; increment to next table entry 
;save next table entry 



addr of de-alloc Max signal -noise. 
;addr of Mask-to-Signal by sub-band . 
register of SBits array ■" 
register of SubBandPosition array. 



rse: 
; se: 



;set register of SubBandlndex array 
; point to SubBandAt Limit array 



; set the proper allowed table of indexed position based on the selected sub-band 



bita 



move 
tst . 
jeq 
move 

. do . 
move 

1£0_B 
move 
move 
move 
. move . 
move, 
move 

- move ". 
move 
move 
move 
move 
move 
move 
move 
.sub ' 
move 
move 
move 
add 

■ tst 

■-' one ' 



y:AllwAdd,r3 
a 

< bita 150 B . 
: #16,n3~, 
a, bita 150 B 
:r3) *n3~ 



r3,n2 -. 
y:MNRsb,nO 
nO.ni '• 
n0.n2,' 

• n0,n4 " 

.nO.r.5 ' • 
r*3,n€ • ; 
x:ndatabit, r7- 
y :<TotBits,a 
x: (r5*nS) ,r3 
x: tr4+n4) ,n7 
tr3/- '• 
r3.x: Ir5*n5^ 
X: ir7+nTi , xO 
xO . a 

x: '.r3+n3I "#r*7 
r*7,x: ir4+n4 i 
x: ;r7*n7; ,'b . 
b.a • 



;init the current Allow table 
;see if it's sub-band 2ero (from above) 
; sub -band zero was selected 
;to increment to next sub-band addr. 
; increment to sub -band number chosen 
.; 16 position entries per sub-band 



rset Allowed addr for sub- band chcser. 

;get. selected sub-band in SBMNRmax 

; sub-band in SBMsr 

; sub-band in SBits 

; sub-band in SBPos 

; sub-band. in SBlndx 

; sub -band in AtLirait - 

; address of data bit count by position 

;get current bits allocated 

;get the current allocated index. 

; get the position at the old index . 

;back up one index 

;save new SBlndx for sub-band ■ 

•data bits allocated at that position 

; subtract old allocated data bits 

;get new position . 

; save new SBPos for sub-band ' ; 

;data bits allocated at new position 

;add new allocated data bits 



<_bita_160_B .. 
;we have to take. off the scale factor bits 



see if index 1 just de-allocated 
if not, save the new TotBits value 



move 
move 
hop 



■ x : '.r2-n2: .r.7- 
aSSKrsits. r7 



;get the SBits scale" factor oode; 'C 
; addr SBits scale factor bit. count 
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move 

sub. 



x : :r7*n7) \y0 

yo . a 



;get tne scale factor tit c~u-- 
; subtract from Tct3i:s ■ 



_bita_160_B '. 

move a,y: <TotBits / ; save the new .total, bits 

; check if Signal -to-Noise.;'positi.on that Signal above/below Masking Threshold' 



bcl:. 
move 
move 
move 
move , 
- add . 

bset . 



x.*r4+n4),n7 . . ; g e t the position 

JfEiS') vo -' " V;adir of Signal-to-Noise table; - 1 

x. tri*n*) .ye . ,-gec signal to mask ratic 

vo'l * r-i -V Che si 9nal-Noise at position - 

y0,a X:.(r5-r.3).,r3 ; add MNR to SNR for test 

< bita 170 b : ; t 3eZ up , to f ec P** v -«id«x for :ts pes 

^k-n— tm«" / V ; above mask, skip next statement : 
#KASK.N^IM^.x:(r6-n6; ;set- AtLimit below, maskir.o • fires -» 



_bita_170_B 

.-check if- the bit pool can. now handle the frame as allocated- 



move 
move 
cmp 

,jgt - : 

enddo 
enddo 
imp _ 



' y:<TctBits,a ' 
y:<AvlBits,xO 
xO, a 

<_bita_180_B 



<_bita_990_B 



;get the new total bits 1 - 

;get the available bits 

.■BitsAvailable vs TptBits ;; ' 

;need more, continue with de-allocation 

.we're done, here, stop MNRsub" loop 
; we 're. done here, .stop . #1000- loop 



_bita_180_3 

;if there, is nc index allocated (r3. C V'/; continue with ; the", next table entry 



move 
tst 

i3*q . 



r3 , a 

a. . (r3 ) - 
< bita 165 B 



;get newly decremented index allocated : 
;if it is zero, continue 
; & back up one index for that position 
♦•allocated, index equals C, continue"" ""' 



;set the value for testing the. best sub- band to deallocate bits f-6m 
;i. tne frame cannot handle the : full required allocation 



move 

■ hop 

• .move 
- : add 

■ move 

_bita_185_3. 

. ■ • nop 

_bita_19'o_s'- ' 
nop 

_bita_20C_S. 
.bita r9C £ 



x: ( :r3*n3 ) , n7 

x: !r7+n7) ; a 
yC , a 

a.x: (r0*n0 3*. 



;get the. position at the. previous index'. 

; get the Signal -Noise . at position " 
;calc Sig-to-Noise at prev pcsiticr. 
;save in SBMNRmax array for later ; 

; continue y: MNRsub do loop 
.end of y: MNRsub do loop- 



■ .-continue" #1000 do loop 
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:cr. passes initial; state, of control' flags ■ 



;flag dp masking passes 
;NCT hearing threshold passes 
;NOT final passes 



' bset #MASKING_PASS.y:<stere© 
bclr . 8HEARING_PASS , y : < stereo \ 
. . bclr ; . *FINAL_PASS. y:<stereo • 

; get the .total bits allocated so far • 

move- ' *' y":<TotBits,xO 

; Now that we have the initial bit allocation. 

.; tc) fori LoopCount ». 0; ; *+LoopCount ; : { 

:? ■ ■ !' "' dp '. #lC0C,_bita_990_C . 

;test the- bit allocation timout f lag. - : " ]■ . 

; if the timer flag was trip, switch over. to the final bit allocation 
of .any remaining bits 



iterate .on it. 



.-■ jclr 
" . }set 
bset 



HC.y':<qtalloc,_bita_10_C ' 

*t FINAL PASS,y :<stereo, bita 1C C 

^FINAlTFASS.yrcstereo ~ - " " 



;this is equivalent to the. call to the c subroutine:. 
; (c) AllocateBits i) v.".-" 

;inititial allocation is done,, set-up for as needed allocation loop 
rrestcre the left channel array addresses 



_bita_lC_C . 

" '". move - 
move 
move 
move 
move 

ICi 



*SBMsr,rl 
y :BitsAdd, r2 
v:BPosAdd,r4 
y:BInxAdd,r5 
?*AtLimit,r6 

FirstTime- 



;set register of SBMsr array 

; set register of SBits array > 

;set register of SubBandPositioh array 

.set register of SubBandlndex array. 

/point to SubBandAt Limit array ... 



1; 



'/•start run 'thru subbands" 



is.:;nie 



bset. 


#FIRS7_TIME. y : <stereo 


" ; FirstTime • 0 "■" 


the. r. 


registers for the channel 


reference '■ 


clr 


a -• - 




move 


" al , y : <count • . 


.-start the sub -band 


. move 


y:AllwAdd,rC 




. move 


#SNR/r3 




move 


' a, nl ' 


; SBMsr array . 


-move 


a , n2 . 


; SB its array . 


. move 


. • a, n4- 


;SBPos array 


\ move 


a , r5 : • 


;SBIndx array 


move 


a. n6 


■ ; At Limit array-.'.; 


rcugh 


all , used sub- bands looking 


ar only those 4 • " 


have ; 


not reached the allocation 


limit ' '. 


. . dc . 


y : cusedsr.._bita_i3C_C 
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.•see if this sub-band*.s limit flag was set previously, and skip- if has." 

jset : #AI^OCAT£_LIMIT,x: (r6*n6 ) ,_bita_10C_C /skip subbf.d reached limit 
■jset #FINAL PASS.y :<sterec : . _bita_40_C ;pass skips below mask "check - 
jset- *MASKING_LIM:t, x: (r6-n©: ,_bita_10C_C /skip subband reached limit- 

bita 4o'c . : ./ ; ; "* * ' 

" move . x:(r4+n4).a ;get curr position {aub&and! 

; see if this sub-band has reached its limit already .- 



move 

".■crap '■ 
jeq 



y:MaxPos,yO 
vC ,a . al, r.3 
"< bita 80 C 



;set .max value . 4 

;see if max position; move pos to -r.3 ' '. . 
.-reached- its allocation limit; set f iag 



"neck this sub-band out 
see if chere is room to handle the next allocation for, this sub- band 



Vinit added "scale factor bits 
; & to ihcr- to next allowed bits size 
; SubBandlndex [SubBand } ' '. ' 



clr ■ b . «>i,yl. ... 
move-, x: (r5+n5)..a : 
:if this will be the 1st "index, we must ' account for the scale factor bits 
: tst ■"■ "'-a; " ttNSKFSits,r7 

3ne - <_bita_50_C " ; ' . . 
;set the scale factor * sbits needed for/this 1st index in this sub-band 
x:<r2*n2> ,n7 • ;get SBIts index" 

x:(r7*n7),b -\ ;num bits for scaling infc 



; see if -0 

; & set addr of NSKFBits array 
;not 1st index, skip add. scale bits 



• move 
nop 
move 



bita 5C 



add 
move 



yl,a 
al,n0 



x:ndatabit.r7 ■ ;mcr, get addr of NDataBIts 

; set offset for. Allowed next index 



; see if next allocation; is passed the max for this sub-band as per Allowed table 



nop 

move 

tst 



x:.(r0+n0> , a 
a .al'.r.7' 



; get the NextPosition. as the . new pos 
;see if passed the maximum position 
; &.move new pos to n7 



-je^"- • ' <_bita_8C_C 
-;test the; allocation at-'. this new positior 



; reached, its allocation limit, se 



move 
add. 

- move ■ 
move 
move 

sub 



x- '.r7*n7; ,yl 
yl,b ' . n2 .r.7* 

bl,yl 

xO.b . 

x: (r7*n7) ,y0 . ■ 

vZ.b - • al.xi; 



;get NDataBits [NextSBPos] ; 

;add to any scaling info bits 

; & set offset SubBandPos [SubBand] 

;bits to' add for next index 

; b«>TestBits • OldTotBits 

; get NDataBits [SBPos [S'jbBand] ■ 



;TestBits-« current 
; U put hew position 



►t"s 

• ?roper rec 
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.; tci 

; .(c: 
; (C; 



cmp. 
jit 



; -100- 

■yl.c y:<AvlBits,.a ; TestBits next allocation 

; • & 9«-« ; BitsAvaliable 

if:{. TestBits .> BitsAvailable i; { . 
AtLimit » 1; 

■continue;- ■ - 



b, a b,y :TotBits 
c bita 8C C 



rsee if room & save allocation 
r no room, 'set as At Limit and z 



:inue 



;if this is the final loop, skip the next . test and allocate the bits 

iset #FINAL_PASS,y:<stereo,_bita_7C_C ;pass skips below mas k check 



; icj 

; «c; 

; (c) 



bita 6 



SMR » SubBandMax.f SubBand] '. . _ 

- MinMaskingDb [SubBand] 
MNR « SNR[SubBandPosit ion [SubBand] ] - SMR 



move 


x:. <r3+n3> ,yl 




. ;get SNKfSubBandPos [SubBand] ] , 


move 


x: <rl*nl) , a 




;SBMsr [SubBand] Mask -to-Signal . 


add 


yl.a y:MNRmin,b 


;add Sig-Noise ratio; ... 








; & get MNRmin for below 


:g- 


<_bita_90_C 




; below Masking, go. to. take out partially 


. move 


a.yi 




; save MNR 


jset 


#FIRST TIME, y : 


:<stereo. 


_bita_60_C ;if first save as minimum 


cmp 


yi,b 




. ; MNRmin - MNR 


jle 


<_bita_100_C. 






6C w C ■ 
move ■ 


ho', y :MNRinx - 




;MNRinx • Newlndex; 


■ move 


xl , y : MNRpos 




;MNRpos - Newposition; 


move 


y : <TotBits,xl 




;get the allocation of bits 


move 


xl.y :<KldBits 




■ ;save the "allocation of 'bits'' " 


move 


y:<count,xl 




■ ;get current sub-banc . 


. move 


Xl,y:MNRsb 




.MNRsb « SubBand ; 


move 


yl,y: MNRmin 




; MNRmin » MNR; 


bclr. : 


" # FIRST TIME , y : 


: <stereo 


; clear FirstTime flag 


jmp 


<_bi.ta~100_C 





; we are on the final allocations passes after all sub -bands 
are. driven below the Global Masking threshold 



_bita_70_c. 
" . ~ move 

move . 

move 

..bclr 
• . jmp 

_bita_30_C . 
~ ' ■ ~ bset 
v bset. 

j:ita_SG_C 
~ oset 

ti-a ::: z 



y:<TotBits,xQ ; save "new TotBits 

n0,x: IrS-^nS) - ;save new sub-band index 

xl,x:(r4*n4) .;save new allocation position 

#?IRST TIME,y:<stere6 j. clear FirstTime flag 

< bita~100 C 



#A1*L0CATE LIMIT, x: (r€*n6) ;set the completely allocated bit 
#HEARING_LIMIT,x: (r6*n6) ;set the completely allocated bit . 

#MASKING_LIMIT,x: Ir6+n6; ;set. the' reached global masking tit- 



SUBSTITUTE SHEET (RULE 




ORIGINAL 



1 



WO 96/32805 



PCT/US96/04835 



101 - 



;ge: current sub -band to ir.cremsr.- 
;now update Allowed :c next sue band 
;SBMsr array ; ; ~ 

;SBits. array 

;SBPos array \ , 

:;SBIndx array '[ 
; At Limit array* 

..•advance Allowed to next sub -band, 
.•increment the sub -band counter 
;save new sub-band number 



; At this point the following registers, are in use . 
y:AvlBits - # of .bits available • 
y: MNRsb - MNRsb 
y : MNRMir. « MNRmin • . . . 

;We test now to see if this trip thru the loop produced any changes 
; and if not, we have finished. the bit allocation for this frame. . 

; (ci if {. FirstTime ) . - \ 

; (c) ;-■ .return; 



move 


y:<ccunt,r*7 


move 


#16, no 


. move 


(rli- .• 


move. 


lr2)* .. . 


move ' 


• <r4)* 


move ; . 


IrS)- 


move 


(r6>- ' 


move 


trO) *n0 


move ' 


■ % lr7).v 


move 


• r7,y:<count 


13C_C ; 





jelr frFIRST TIME. y : <stereo, _bita_l40_C 
jcir fcFINAirPASS.y:<stereo,_bita_160_C 



,-not 1st. alloc to selected 
,-not final, . set 1 more loop 



/finished,, end the loop J and go to exit, routine 
< bita 990 C 



enddo 

. ^p 



_bita_14C_eV • 

; test. flag. all candidates are below, masking threshold 
jset; «FINAL_PASS,y:<sterec,_bita_170_C : ;if 
.•restore the channel array addresses 



final, allocated already 



move 
move 



y :BPosAdd,r4 
y:BInxAdd.rS 



;set. register, of SubBandPositior. array 
;set register of Sub Band Index array 



SubBand Index [MNRsb] . 

SubBandPosition [MNRsb] • AllowedPositions [MNIlsb] [SubBandlndex [MNRsb] ] 



. move 
"move 
; move 
move *;' 
move 
move 
move • - 
jmp 

;now lets jus: 

bita 1€0 C 
' " bset 



y: MNRsb, n5. 
n5,n4 

y:MNRinx,xl. \ 
xl.x: (r5+n5) 
' y : MNRpOS , xl. " 
*xl,x: (r4+n4i 
y:<HldBits,xO . 
< bita 170 C 



; MNRsb ■ 
; MNRsb • 

; get the saved new index 
.; update the SSIndx for selected sub-band 
;get the saved new Allowed position 
; update "the SBPos for selected sub- hand- 
set the new bit allocation total .cht • 
,-continue major loop 



allocate what' s. left now that all are below mask. 
#F:NAl_?ASS,y:<stereo just. loop now' 
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L70_C 
nop 



Jbita_990_C 

move 
• move- 
■ '. sub 
move 



xO,y:<TotBits 
y : <AvlBits,b 
xO.b 

bl,y:padbits . 
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,-save bits actually allocated 
.-determine number of bits padded" 
;bits available minus total allocated 
;saye count of unallocated audio bits 



rts 



; insert value I ).: 



;This routine 1 orders the table of values per sub-band • 
; that- are to.be de-allocated as needed. The table is ordered in. 
; descending sequence that makes the 1st entry the one that can best 
,-afford a deallocation. 



ron entry: 



x: (rO+nO) « the current value to be inserted \ 
r2 « . the sub-band number to be inserted 

y:MNRsub « current count of entries, in tne ordered deallocation tables 
n3 = address of MNRval table .... 
n4 « address of KNRsbc table 



; on exit : 



y:MNRsub « incremented count of . entries in ordered, deallocation tables 

a = destroyed" 
b = destroyed 
xO. » destroyed * 
yO -destroyed 
r3 -"destroyed 
r4 - destroyed. 



erg • 
insert value 



phe : 



; get the current value to be inserted and set upo the start into ■ 
; the ordered table of values and the assoicated .table of sub -band 



move. ■ x: (rO+nO) , a' \ ' 
move . y : < MNRsub , b 



..;get the current, value to insert. 
; get .current count of table entries. 



Lf this is the 1st value to be inserted ino the table, skip the -. 
search for its. place and enter this as, table entry no. 1 



tst b ; ' #0,r3 
jeq <_insert_50 . 



;see if this is 1st entry into table ' 
; & set to 1st entry in MNRval table- 
;i£ 1st, skip following table, search 



; search through the table of entries so far established looking. for where. 
;to store this current .value 



ac 



y : <MNRsub, _insert_20: 



\ 
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move 

cmp ' 
. jit 



xZ , a 

< insert' 1C 



;get the table value for comparison ■ 
; against the new value tc .be" inserted 
;if less., value is further down table 



;wher. the new value "is greater than cr. equal tc the table entry. 

: this; is its place in the table, we may have to shift the following 

; table entries in order to enter this new value 



. .'. enddo 

_insert_!C 
" , . "move 

insert 20 



< insert 20 



(r3).~ 



.-stop the y:KNRsub do loop 

;see if. the table must be shifted 



,*try the next table entry, 
rend of y :MNRsub do loop 



Lf this entry number (its place in. the table) equals the. count of entries; 
this, entry will be the new LAST entry m the table 



move 
cmp * 

jgt 

jeq 
move 
, jmp 



. r2.x0 
xO.b 

<_insert_ 
<":nser: _ 
•bl. r3 
< insert 50 



:z 25 



;get its place in the table, to compare 
; its place tc current table entry coun- 
:if less, we have to shift the table 
;if eq, entry is appended to the cable 
.;?? let's make sure we use last entry 



insert 25: 



;we need to shift the subsequent entries in the table down one and then 
; insert this new sub-band value. 



move 
move 
move 
move 
move 
' sub 



move 
move 
move 
move 
move 
move 



bl.rS 
bl ,r4 - 
(r3 J *n3 
ir4) *n4 • 
(r3) - , 
x0,b (r4)- 



b, _ insert_4 0 

x: tr3) *,y0 
yC,x: (r3) - 
x: (r4 i *,y0 . 
yC ,x: Ir4) - 
(r3.!- - 
(r4)-- 



insert 4 0 



/establish the curr table ends 

;for both MNRval and MNRsbc 

;'set r3 with addr of MNRval end * 1 . 

; set r4 with addr f of MNRsbc end— 1 

.-back cff 1 to get iast MNRval entry. 

.•number cf table entries tc shift 

; & back off 1 tc get last MNRsoc entrj 

.•shift -each down 1 position in tables 

; get curr value and mcr. tc "rec addr ■' 
;put value i entry down & back up. 1 
;curr sub-band/chan & incr tc rec addr 
;put value 1 entry down: fit back up 1 
;back up one more entry table. MNRval . 
.back up- one more entry table MNRsbc - 

.; . end cf . b do looo 



; restore entry location tc receive value and sub-band 
move ' .xC,r3 

_ihsert_=0 •; '\ 'V , - *- . ' • ' 

.•insert the current value at this location m the ordered table. 
; alst ,ir.sert the sub-band number' 



move 



; ma: 



r.g posit ic 



:he MNr.scc .tail* 
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move ■ : a.x: Cr3+n3) ... /enter sorted ■ value " 
move r2.x: (r4*n4) . • ;enter the sub -band number 

; ;increment the count of entries in the ordered. deallocation tables 

move v. y:<MNRsub,r3 ;We need to increment entry -counter 

nop - . 

move _ (r3l* ■ *'■'•' \ . • 

-'move. r3,y:<MNKsubv:;. ;saye the. : newr. table . entry count 
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!• (c) 1995. Copyright Corporate Computer Systems, Inc. All rights reserved. 

\ \DGCST\botsallo.asm 

title / ' Initialize bit output' -■■ ' ■/ 

; This routine is used to initialize the bit output; routines . 

include . 'def .asm' 
. \ include. 'box_ctl .asm* . 

section lowmisc ;~ -\ 
. xdef . sc.curwd ..* 



or 9 

stbitsallo_yl: 



yli:: 



■ sc 
curwd 



ds 
ds 



; shift, count ' . 
; current word 



endbitsallo_yli : 
endsec- '.. 

. org phe: 

; b " tp00l This subroutine determines the number of bits available based 
• on the output bit. rate and the type cf framing . 

,»**********•************++****++***•< 



.*•**•*•* 



»***•********•*#*♦*•*»*< 



;The table below is based on a Sampling Rate at 48.000 /sec and shows 
•the breakdown. of bit counts based on bit rate o/p and choice of frame 
. Mono .. Full . < T ~ 



;kb 
;rate 

1 3 84 

;2S6 
;192 
;128 
;112 
; 96 . 
; 64 
; 56 



frame 
bits 

9216 
6144 r 
4608 
3072 
2688 
2304 
1536 
1344 



fix avail 



Stereo 
fix avail 



4 - bound 
fix avail 



Joint Stereo 
8 -bound . 12 -bound. 



Six avail 



Six ava: 



********* 

type'. 
— . . > 

16 -bound 
fix avail 



136 



136 

.******************* 



9080 
6008 
4472 
2936 
2552 
2168 
1400 
1208 



224 



224 



8992 
5920 
4384 
2848 
2464 
2060 
1312 
1120 



152: 



152 



9064 

.5992 

4456 

2920 

2536 

2152- 

1384 : 

1192 



168 



168 



9048 
5976 
444 C 
2904 
2520 
2136 
1368 
1176 



.183 



183 



9033 
5961 
4425 
2889 
2505 
2121 
1353 
1161 



L95 



9021 
594 5 
4413 
2877 

2493 
2109 
134 1- 
114?. 



***************** **♦•*♦*•** ********** 



y:<stereo « ^^ s ^.. indicat ing applicablation cf " CRC-16 prctecticr. 

. 0 -NOT APPLICABLE ' 
1- « CRC-16 protection APPLIES 



y-.frmbits • the- total number of; bits- 
. bit rate. . 



in a frame at the specified 



; on exit 

7 X 



^destroyed • returned' number of required (fixed! bits. . 
xl destroyed - returned number - of bits available for cit avocation . 
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a destroyed 
rZ destroyed 
ri destroyed 
r 3 destroyed 
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org 



phe: 



fcitpbol 



; Select the proper . Allowed table: ; 

; ISO:, 

? 1. for low sampling rates. (24 or l€ K) . 

set ISO. Extent ion .Allowed table . iAliowed_3) 
2. for high sampling races .(48, 44.1 or 32 K) : 

. a. based on MAXSUBBANDS ; less than 27, ' -\ ' 

set ISO, lower, bit rate Allowed table (Allowed_2) 

;* " D: else, 

; " set. ISO higher bit rate Allowed, table (Allowed 1 

; CCS: ■ 

set' ISO higher bit rate Allowed table CAlIowed_l) 
;low sampling rate:' 

; test the frame header ID bit (if 0, it's a tew. sampling rate frame) 



move . 
■ nop - 
jset 

move 
move 
move 
jmp 



Ssmplidbit, rO 

#C,y: irO) ,_bitp_000_A 

^Allowed 3,r0 

#skf.tbl I r rl .. 

#>15,xl~ 

.< bitp Cio A 



,* addr of frame header ID bit (0 ■ /low> 
; (l - high) 

;if high rate, select Allowed table 

;addr of low sampling allowed table 
; addr of the BAL bits table 
rmaximum position Allowed_3 table 
;go to store Allowed table address 



_bitp_000_A 



;high sampling rate: 

; set the proper Allowed table address based on. working MAXSUBBANDS (y:<maxubs: 
; if less, than 27," used table 2 



move 
-move 
move 
move 
cmp .. 



y:<maxsubs , xO, 
#>27,a 
#>17,X1 : 

#skftbl_l,ri .. 
xC t a ~#Ai lowed 



,r0 



jle • ' <_bitp_010_A 
; select the lower bit rate Allowed table 



;get current MAXSUBBANDS 

;to see which of 2 tables applies 

; maximum position Allowed 1 table 

r addr of the BAL bits. table . 

;see if need the low bit rate table 

; & set up as Aliowed_l table 

;Allowed_l table applies. 



: move #Allowed 2, r0-*' 
move #s)tftbl_2.rl 
move . *>16, xl~ 



; addr of the BAL - bits . table . 
; maximum position Allowed_2 table 



'j3itp_01C_A' ' 

' ;set the address of the\ selected Allowed table \ ' 
: set the address of the selected BAL' s :bit table 
.-set- the maximum- position code* 
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'' -107 - . .". 

.'move • r:.y:AllwAaa .. . / ' 

move rl,x:skftbl . 
'.move xl.y:MaxPos 

.•determine the bits required fcr ancillary data (taken from audio pit pool;.: 
;. scare with bits required to. store the padded data byte count in frame . 

' move " . tt>BITSFORPADDING , b .'■ ; bits in the. padded byte "'count 

move y:maxbytes,yl ;get max bytes at baud rate 

move y:<bytecnt.a : current count, of bytes received . 

cmp yl.a .#>BITSPERBYTE.xl . ; see max versus current count . 

; t set multiplier 

ig e <_titp 00 - ;if mere than max. can only.. send max ° v 

' move- aTyl- ; less 'than max. send all received ; 

_bitp_00 ."V ., 

.•multiply '.the bytecount for bits per. byte. \ ■ "" ;•' 

mpy xl,yl,a .'. ;to get the required bit 

asr a yi ,y : <bytesf rm .-shift integer result 

;. & set byte count for framing 

' ■ move- aO , a . .. 
add :a,fc . .-add to the count of bytes 

■•. move.';. b,y:ancbits \ . ■"• ;set ancillary, data bit- count- 

s-set the number of fixed bits used, and the number. of available bits for audio 
. c i r . a #0,xl ';0 a. as accum. lero CRC checksum bit cnt 

'.•set the address and bit offsets to identify the. end of the. current full frame . 
; and set the end cf. the formatted frame 

move '"•' . y':<frmnext.rl ■: .-address for start the next frame 

move ■ y.outsize.ml ■ " : '.-circular ctl addr the framing -o/p buf 



; set 



:he fixed cits for the audio frame 
move 



_ #>NSYNC,xO .-number of SYNC bits . 

add . xO.a .*>NSYST.x0 . ;plus number of bits in frame system hdr 

add xO.a - x:skftbl,rO ; get base of used bits, table 

iclr. #PRCTECT,y:<stereo,_bitp_3S. .-skip checksum bits if no protect 



. move 
:p_35 



#>NCRCBITS,xl . .. Tadd applicable bits for the checksum 



add ' xl-.a ' ; add checksum protection. ' if any .. - • 

.•account for- the bits required for protection encoding - 

move #>REED SOLOMON BITS.xl ■ .-bits required for Kadir's routine 
• add • xl,a ., ~ ' * / ■ \ : ;add protection bits to fixed bit cnt 

; accummulate the bit allocation bits for standard number of sub-bands' 
• -included in . the frame for .the left- and right . i if applicable *. . 

do - ' y : <maxsubs, _fc:tp_5C .- . 

• ; accumulate fcr the- channel . 
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*. move . x: (rC. *,xl 
add ;■ xl,a ■ 



108 ■ 



_bitp_5C 



move _ a, xO 
move • y:frmbits,b 



■■" ; return fixed bits :"\ 

.■total size cf frame ir. bits 



;suotracr any 



bits required for ancillary data. 



•move..- yiahcbits.yl 
sub' . . yl » b 



_bitp_8C 



sub 
move 



a. c 

b. x: 



total bits -V fixed bits * 

return number of audic data bits avail 



;now aeterm 

add 
add 



ine- word and bit offsets .for- the end cf the audit -frame 



yl;b 

a,b ... «>24,yl 



move y *• < f rms t r t ; r 1: 



; restore bits for ancillary data 
; restore to full audit frame size 
; & set number. bits in a word 
-count words to last word in frame 



_bitp_S0 - 
~ cmp 

■ • jit,- 
. sub 
' " imp 

._bitp_:oo •/■ 

~ move 
move 
mcve . 



yl'.b 

< bitp_100 
yl.b. ~ (rli ■ 
<_bitp_90 



r 1 , y : audendw 
c , y : audendb 
y : ciinear,.mi 



.; see if - reached last word 

;if so,' set eoframe word u bit offsets. 



;tc identify end cf audio part of frame 
;bit offset end of audio part cf frame 
.•reset to linear buffer control 



res 



; bit sail 



TVs subroutine starts the bit allocation of values into the 
frame buffer values are .inserted by sec value (> and by, bit free ;) below 



: on exit 

"i; yiccurvd - initialized iZ\ 1st word in frame buffer 

a * destroyed • 



bitsallc - 

• move : 
' ' move ' 
. move 



a.y : <sc . 
a,y : <curwd 



; initialize the shift count- ' 
.•initialize curwd (1st bit in op frame: 



rts 



page 



;bitsf ree * ; 



r.-.ts routine 



flushes' the last bits to the output buffer 



r.try 



z'i * address cf next . wcrd the cutpu: 



frame .buff er ' x nemo: 
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";' or. exit 

; . a « destroted 

. b - destroyed . - 
\ . .. . x0 - destroyed 
xl • descroyed 
• y° * destroyed 

\ : yl ■ destroyed. 

section highmisc 
' xdef " - .'• audendw 
' ' xdef . audendb. 

org . " yhe-. .'■ 
stbitsalic^yhe - 

audendw ds : , 1 : . 
audendb ds ' - " 1 . 

endbitsallo_yhe 
ehdsec 



■address cf end of audio pert icn of frame 
•bit cf f set to end of audit pore i or. of x " 



ratne . 



bitsfree. ; 

; see if ail of the frame has been output totally 



move 
move 
ctnp 



y: <f rtnnext , xl : 
r6,b 

xl.b #»24,a 



jeq " " <_free_90 : ' 
the last word cf the. frame is to be output next 



;get address fcr start of next frame 
,-next o/p address of current frame 
,if addresses ■ start, done , 
; and set up. for the next test . 
.•■frame done, exit 



move 
cmp 



y : <f rmlast,xl 
xl.b . y:<sc.x0 



.•last word address of current frame 
;tes; if address » last wcrd 
; and get number cf bxts ir. last were, 
■last word; chk block sec number neede: 



' ^ec <_f re *_ 20 . " 
; output last partially formatted data word before zero fill remainder cf frame 



sub - - 

ctnp. 

jeq 

move 
rep 

isl : 

move 
move 



x0,a #>2.4,x0 
xC,a #0.x0 
<_free_05. 

y : <curwd,b' 



bl,x: <rS) * 
xC,y:<sc 



.-get number of bits, left . 

; 24 - number of bits left. - 

;not partially formatted .y:sc «■ C 

; get current output word . 
' ; output .the. necessary ■# of .bits . 



; save in the output 
.zero the- current, bit c*' 



set 



_free_05 



clr 



•output zero. for remainder cf frame 



_free_10 •. . r ■.>■■..-,: 

.-see if .the last word of the frame" is to be .output next j/ 

' "^c w " - ; next o/p address'" of 

ir.cve . re . D 



rrer.t frame 
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cmp 
move 
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xl.b" 

< free 20 
al.x: trO* 

< free 10 



; see if last word next 
; last word, chx block seq r.uT.ber needed 
'output frame word and ;ncoer.: addr • 
[continue to flush the buffer . 



free 20 



move 

move 

move 

move 

sub 

sub 

tst . 

jle 

move 

3 sr ; 



*0,y0 
ItO.xO 
*>24,a 

y :<SC.yl 

yi.a 
. xO.a - 
a 

<_free_90 

a, n4 - 
<setvalue 



;init with zeros- to pad last word . 
•init with no bits req for seq number 
• bits in the word. 
;get current formatted word. offset 
r bits remaining 

;bits required for block seq num. / 
•test^if any zero bits to output. 
; if none,. try the block, seq hum 

; number of bits to output. 

; pad word with 2eroes as needed . 



free 90 



rts 
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- ." : " -111 - - V ' -V ■* • V . .' 

; opt ' fcmex " , r. 

.:ci 1995. Copyright Corporate Computer Systems, Inc. Ail rights reserved. 

\DGCST\xmicrmus.asm: Reed Solomon version .for DigiCast ; ■ 

title: 'Micro MUSICAM Transitter Main' -' ; ' .". 

17/23/92) xmicro.asm micro MONO version of XPSYCHO and XCODE*" combined ■ 

include ' def. asm' 
include ' . . \common\ioequ.asm' 
* include. 'box_ctl. asm' ■ 

- ■- section lowmisc - ■ 



AUC L. 


word out .' 


xdef ; 


word~in 


: ;• ■' ' xdef , V 


. startyli *.. 


. - xdef 


' hct_appl'- . - 




maxsubs 


xdef 


oldccs 


■ AUCl. 


■ nsfidsb 


xdef 


stereo 


AUCl 


cmprsctl 


xdef 


. oprptr 


xdef 


outmus . 


xdef 


outsize 


xdef 


f rmstrt : 


xdef 


f rmnext 


xdef' " 


f rmlast 


■xdef 


timer 


xdef 


timeout 


xdef 


qt alloc 


xdef 


■ ipwptr 


xdef 


polyst 


xdef - 


nmskf reqs 


xdef 


maxcritbnds 


xdef 


linear 


. xdef 


junx 


xdef 


endyli 


" xdef ■ 


dbgcnt 


xdef 


limit sb 


' org 


;. y ii::V- 


stxmicro_yli 




word_out-. 


ds , 1 


,word~in 


• ds . . 1 


startyli 




not_appl 


ds • /I' ' 


' maxsubs ds 


: ." "1 ■ ' 


oldccs ds . 





; applicable hardware output {leds, switches) 
•applicable hardware input (switches, lines) 



; satisfy non-applicable hardware settings 

• working MAXSUBBANDS for sample/bit rate 
;encode MPEG-ISO or old CCS CDQICOO'.s 
. 0 - MPEG- ISO . . 
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: -112- . v ':- ■ 

; ■ • 1 -'-Old CCS .CBQIOOO* s 
number of used sub -bands 
;y:<stereo « flags:. 

•;bit 0 means stereo vs mono framing 
; 0 « stereo framing • ' : 

; 1 ■ mono framing 

;bit 1 indicates left vs right channel 
; 0 « looping thru left channel arrays." 
; l « looping thru right channel arrays 
;bit 2 indicates joint stereo applies 
; .0 - NOT joint stereo framing type 
; 1 - IS joint stereo framing type . 
;bit 3 indicates curr' frame .upgraded to 
; full stereo, by joint bit allocation 

(if joint stereo applies) 
; 0= normal joint stereo allocation 

1 » FULL STEREO allocation 
;bit 4 indicates the stereo intensity 
; sub- band boundary has been reached 
; ■ (if joint stereo applies) 

; 0 * NO sub- bands still below 
; . intensity boundary 
; :.i;, ■ sub-bands above intensity - : " . 
boundary 

;bit 5 is FirstTime switch in a loop : 
;■ thru, the bit allocation 
; . . 0 - cleared if any allocations. 
; were made 

; 1 « no allocations made: to any 
sub- band 

;bit 6 indicates a below masking 
; threshold allocation pass 

; 0 . » some . sub- bands not below mask 
; 1 • all sub- bands are below mask 
;bit 7 indicates a below hearing 

threshold allocation pass 
; 0 « some sub -bands not below hearing 
; threshold 

1 - all sub-bands are below hearing 
.; threshold . : 

;bit 8 indicates final bit allocation 
; passes to use up any available bits 
; 0 - not yet . 

; 1 -allocate remainder in bit pool 
. ;bit 9 indicates limit of sub -bands requiring 
; at least one position has been reached:. 
; 0 - not yet, 1 » limit reached 
;bitl0 indicates maximum limit of sub-bands 
; that are to be allocated has been reached:. 
0 «. not yet; 1 - limit reached' ■ 

..•control flag for CCS compression': 

; ■ .bit 0 « application: ■ • 
. ; .0 - ISO standard . 

. 1 - CCS compression applies 

;read pointer, into output frame buffer 

; number cf words to read in 

/circular buffer ctl frame o/p buffer ■ 

; starting addr of current frame . 

♦•starting, addr of next frame 
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" f rmlast . ds 
timer ds - 
timeout ds ** 
qtalloc ds 

ipwptr ds 
polyst ds 
. nmskf reqs 
maxcritbnds 
linear ds 

junk ds' . 

endyli V 

. dbgcnt . dc 
iimitsb dc 



1" ■ 
1 ' 

1 
1 

ds 
ds 

1 - 



,-last word addr of current frame 
;0.024/C.036 msec timer interrupt senscr 
.; 0 . 024/0 .036 msec timer interrupt exception 
; 0.024/0. 036 msec timer interrupt bit alloc. 
; signal bit allocator to finish up 
; write pointer into input -inpcm buffer 
; ; addr of the poiyanaiysis start ; : ■ / : ■ 
;NMSKFREQS based on selected sample rate 
; MAXCRITBNDS based on. selected sample rate'. 
,-reset mX as linear .buffer control.. 



i debug 



;!lidebug counter of flag 

;LIMI7SUBBANDS - ; sub -bands/ req at least 1 allocation 



endxmicro_yli 
-endsec 

" section ptable : \ '* " ' " ' . 

'•• xdef : ptable . l " 

xdef " ■ a_psych,b_psych 

"xdef •• c_psych.d_psych : 

■ xdef - e_psych, f_psych,g_psych . . 

xdef h_psych. i jpsych, j jpsych . ; u . . . 

xdef k psych, 1 psych, m_psych, n_psych, o_psych,p_psych ■ . .. 

xdef q^psych,r_psych,s_psych,t jsych, ujjsych. v_psych, w_psych, x_psych 

xdef ypsych/z psych . . . . 

xdef zllpsy=h,22_psych.23 jsych, z4^sych, z5 j>sych, z6_psych 

•.. org " yli: • ■ • 
stptable_yli 

ptable * . ';. ' . ':' l -. 

■;this table is known as IRT 



a_psych 
b_psych 
c_psych ' 

. d_psych . 
e jpsych 
f jpsych 
g_psych 
h_psych 
i_psy ch . 
j jpsych 
k_psych 
l_psych 
m_psych * 
n jpsych 
o^psych 
p_jsych 
q_psych 

. r_psych 
s^ psych 



dc 


0. 


0467146 


dc 


0. 


0498269 


dc 


0. 


0259526 


dc 


0. 


0498289 


dc 


0. 


08B2387 


dc 


0. 


4000000 


dc 


0. 


031143i 


dc 


0. 


0882387: 


dc 


0. 


0882387 


dc 


0. 


.1000000 


dc. 


0, 


,0000000 


dc 


0. 


.0000000 


dc 


0 


.0000000 


dc 


0 


.0000000 


dc 


0 


.0000000 


dc 


0 


.0000000 


dc 


0 


.0000000 


dc 


0 


.0000000; 


■ dc 


\0 


. oooooco 



;A 
;B 
;C 
;D 
;E 
;F 
;G 
;H 
;I 
; J 
;K 
";L 

;M 
;N 
;0 
. ;P 
;Q 
;R 
;S 



curval" 
curval - 
curval- 
curval» 
curval" 
- curval" 
curval" 
curval" 
curval" 
curval." 
curval- 
curval* 
curval- 



9 dB 

.3 dB/Bark 
■ 5 dB 

.3 dB/Bark 
17 dB/Bark 

.4 1/Bark 
; .6 dB/Bark 
17 dB/Bark 
17 dB/Bark 

.1 1/Bark 

0.0000000 . 

0.0000000 

0 .0000000 



CCS compression - NO < .5 >» YES 
curval- o.obooooo 
curval* .0.0000000 . : 
curval* .0.0000000 
curval" .0.0000000. 
curval- 0.0000000. 
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-_?sych 

v_psych 
wjpsych . 
x_psych . 

- y_psych 
z_psych 

: zl_psych 
z2_psych 
z33psych 
z4_psych 
z5_psych 
z6_psych 



dc 


r. 


.0000000 ': 


curval- . 


0 


.ocooooo 


dc 


C 


.oooocoo 


;U curval- . 


0 


:0OC0O0C 


dc 


C 


.ocooooo . 


; ;V curvaU 


0 


.0000000 


dc 


C 


.0000000 


;W curval- ■ 


0 


.0000000 


dc 


c 


.0103810 • 


;X curval- 


2 


dB/Bark 


dc 


0 


.0259525 • 


;Y curvai- . 


5 


da/Bark. 


dc 


0 


.0415239.. 


- ;Z curval-. 


8 


d3 /Bark 


dc 


0 


.0000000 


V ;21 curval- 




0.0000000 


dc 


0 


.0000000 . 


;22 curval- 




0.0000000 


dc. 


0 


.0000000 , ' 


;Z3 : 4 to 30. 


B 


used sub 


dc • 


0 


.0000000 


;Z4 curval- 




o;ooooooo 


dc 


0 


.0000000 . 


. ;Z5 curval « 




0.0000000 


dc 


0 


.0000000 -. 


;ZS curval- 




0.0000000 



endsec 




section 


highmisc 


xdef. 


s tarty he 


xdef 


bitrate . 


xdef 


frmrate 


xdef 


smplcde 


xdef 


stnplrte 


xdef 


. smplidbit 


xdef 


bndwdth 


xdef 


frmtype 


xdef 


ppfrtyp 


xdef 


baudrte 


xdef 


oputcde 


xdef 


f rmbits 


xdef 


fixbits ; 


xdef 


audbits 


xdef 


ancbits 


xdef 


stintns 


xdef . \ 


b_i 


xdef 


fmap 


xdef 


ThresSLB 


xdef 


Threshld 


xdef 


cb . 


xdef 


g cb 


xdef ' 


dbaddtbl 


xdef . 


plcrmn 


xdef : . 


endyhe 


xdef 


samplng 


xdef 


bitrates 


xdef 


baudclk 


.org . ' 


yhe: ' 



stxmicro_yhe 
startyhe. 
bitrate. ds ... 



; bit rate, code forMUSICAM frame header 
; sampling rate 48 K or 32 K: 
: ISC and old CCS CDQ1000 :' - - 
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frmrate ds 



• smplcde ,ds 



smplrze ds 



smclidr-it 



bndwdth ds 



ds 



f rmtype ds 


1. 


OFfrtyp ds. 


.1 


baudrte ds 


. 1 '. 


cputcde ds 


■ 1 ■ " 


frmbits ds . / 


l'- ; 


fixbxts.ds 




audbus ds . 


:. : 1 - 


ancbits ds 


. 1 ' 


s:m:ns ds 




b _- ' ■ 


ds- 


fmap. 


' ds 


ThresSLS / 


ds 


' ;Threshld 


" . ds. 


cb.- ' 


- ds 


.g cb' :' 


ds 


dbaddtb: 


ds: 


.pictrrr.V ds / 





; "3 (0011) * 55 K3ics 

4 (31CC) - 64 KBits 
.-..sampling rate 24 K or 16 K: . 

'; '■ : ISO: ■■■■'.-* 
■;-.-■* -7 (Dill) • S6 KBits / ' . .. 

■ 8 (1000) » 64 K3its 
; . old CCS CDQ1000: . ;' 
;■ . 3 (0011) « 56. KBits 
; -4 (0100) - 64 KBits . 

; overall frame bit rate as to hardware 

. • switches. 11' bit) indicate 
; bit. rate sets numb words in a frame: 
; 0 - low -Kbit rate 

1 - high Kbit rate 
;sample rate code in MUSICAM header:. 
'; ISO: ' 

00 - 44 .1 K or .22.05 K 
■ ; ' • " 01 - 48 K or 24 K' 

10 - 32 K or 16 K \ v 
;. - eld CCS. CDC1000: 
; 00 * 16 K 

; . 01 - 48 K . . 

/ • 10-32 K 

• 11 24 K • 
;*PCM data sampling rate: low vs high rate 
; depending on flag in box ctl . asm that 
,• indicates the pairing .(16/24, 16/32, .16/48,. 
;. . 24/32, 24/48 or 32/48) 

; switches (1 bit) indicate . 

.0 « 16000, 24000 or 32000 
; 1 m 24000. 32000 or 48000 

;hdr id bit: • 
'; ISO: . - . . : . • • " • 

.'- 1 for 44.1,- 48,. and" 32 K sample rates. 

0 for 22.05, 24, and 16 K sample rates 
; old CCS CDC1000: 

1 is always used with special sample -, 
1 rate codes in the header vabove; : 
•code- for setting sub-band limits 

?cip switches (2 bits) are set to: 
. ; ' 11 » (3) mono i 1 channel 1 

•current frame, .type after" bit allocation .. . 
; ancillary data. baud rate 
; type of. output coding: MUSI CAM. vs G~22 
-switches (1 bit) "indicate - . 
. 0 - MUSICAM frames 
» 3722 data 
; bit's in the audio portion of frame . : : 
•bits required before audio data bits 
.■number of bits available for audio data 
;bits required for. ancillary data current ■ frame 
,-intensity subband boundary code 
;addr b i. table for low or high sample race 
•addr fraap table for low or high sample rate 
; addr ThresSLB table' for low or. high sample rat- 
; addr..Threshld table for low or high sample, rati 
;addr cb table for low or high sample rate 
; addr c cb table for low or high sample rate . 
!-addr DbAddTbl 

.•successive phase leek -detect high. center mair. 
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':. -. .• ,- : - • -116- -. : ' , :• 

endyhe ' . ■, . : • \ 

table .of "sampling races ' - * ^ V 

. SAMPLERATES V *■' ' 

;table of- bit rates. . ' - : : .\. ; . - : ' 

. B ITRATES. . ■■ /■ 
; baud rate table for ancillary "data .. 

BAUDCLK .'• ' \ •" - / '/ /;' 

endxmicro_yhe :■ 
endsec 

org . " phe : " "--" . " • ■ 

•start , . " ^ • , 

; The external wait state is set to l. This allows the HCT541' s to 
; put their data on the bus.. in plenty of time. 

movep #$0Q01,x;<<M_BCR. ;set all external io wait states 

; set dsp56002 clock to selected MHz "1PLL" Control Register) 

. .." XCODE_M_PCTL 

; PORT C Assignments 

; - . -S » SSi port - • " ^ . ■ 

. ■;. i> input port" 
; o » output port 

X CODE PORT C M PCC ;set port C control register . 

XC0DE~P0RT~C~M~PCD . ;set output data to port C 

XC0DE~PORT~C~M"PCDDR ■ ; set, port C data direction reg 

; initialize the ssi port for the ad converter , 

XCODE SSI M CRA : . ;set ssi era register 

'•' XCODE~SSOTCRB ;set ssi crb register ;. 

; .; initialize the set port for tty ... 

1 . XCODE SCI M SCR - • ;set sci. status control register 

: - ; PORT B Assignments 

; 14 13 12 - 11 10 9 8 - 7 6 5 4 - 3 2 1 0 

; o.. o i o . i i o o i i i i i i i 

. XCODE PORT B M PBC ,set B control register for general. 10' 

XC0DE;?ORtX>TpBD . • ;set the default outputs 
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. . ' xWDLPbRT>_K>SDDR ; set 9 register" direct. icr. • 
,; initialize the host interrupt vector •• 

. INIT_HOST.yECTORS.C0 : ■-*-*■■. /i" ' "*■ 

restart " " ; - -..* ■" - ■ 

...set the'mterrupt for host interrupts :! \ .... : 
; HOST set to 2 ... . 

u ' .« ' '-'fie- int priorities and edges . . " 

movep «>S080C.x:«M_IPR '.f^n en the interrupt system. . . 

andi. nstz 4 rKr ■ • 

■ cri ' #SC-3,mr '" . ' '-; ... • -'.-/.- 

. nop " ' : ■ "*■■,-' : \ '• . . 

: ' • nop ; \ . : ". . '■ t ' ■ :• ■ ;* . ; .-■ ■ * V - ' : • : - 

• " ■ -hop . . * ; ' , " "'- .. ■ " 

' .clear! the analog to "digit.! inverter t= restart .calibrar.o^. - ' ; , 

' CLR_ADC_RESET. " 
- .disable"- Che' ancillary data received interrupt • ; 
belr #M_RIE . x : < <M_SCR 
'• ^ve } *>0FF LEDS.CD.b . ' initialize leds as off . 
' move b.y:«"ord_out ■ • 

.................. •••• ....i...... 

•*•** *.!*.!.... 

". •> • ts ENCODED AND POT INTO A HIGH MEMORY 

;TE5T- DATA . 

• initialise the buffer to. be. encoded for testing 

_ ' .<nd-*cate no problem with Reed Sciomcr. 

. OFF R£E=_SCL_LEB_CD ■■■ ' '.-o&l the 1st of the encoded frames 

move Hframebuf .ro _ • C he test value accumuiatcr 

. clr . a .*>l.xO •;. ; x 2"o increment in the. test buffer 

;S et the frame buffer to sequentially mcremented values : . 

."• do •" ■ • #96,_inicl . 

add "■ xO.a ■ .; . 

move al,x: IrO)* ... 

Cthe reed so iotnon encoding on the test frame buffer v ■ ' , 

w £ . „ ■ -i/p pointer of buffer -to.be RS-CO^ET 

.. : move . #framebuf ,rO .. . '.* r ame buffer is circular - 2 frames 

move , #Sbf ,mO _ .-. \ m f pointer for CODED data to be store 

. move areedsolbuf ,r. . . . ; en £ 0 5 e via . reed solomor. 
' , . " j sr <ney_rs "• '. 

■ --est if -he. reed solomon codec worked or NOT. • 
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ntcve 
mcve 



;ver 



#reedsclbuf , rO 
itRStest.rl 



;o/p pointer -for CODED data to be stored 
the verification, table 



ify that- the reed sclomon coded values are correct 



do V 
move 
move 

CTTtp 

3«q 



Same 



RS Chk 



*96, RSJThk : ; 
x: trO>*7xO 
x: (rl> + .a 

• xO, a ' ■'. 
e^Same; 
ON_REED_SOL_L£D_CD ; '- 
enddo 
nop 

nop 

ON ALARM LED CD 
TST_SET ALARM_RELAY_CD, 
SET ALARM RELAY CD ~ . 



Get current coded data output 
t *Gez pre coded look up table value 
; compare. 2 values 
;If SAME No problem 

"; indicate no problem with Reed Sclomon. 



; light, alarm led indicate: 



set_led_0 . .-unless already. set. 
" ; set the alarm relay line on 



jet led_0 

SET_LED5_CD 
.' INTERRUPT_HOST_CE 

Clear ail of. the y memory . 

. clr a ." " l .' . 

move #$ffff .m0 

move ftstartyli.rO 

move #iendyU- start ylii ,rl 
• rep rl 

move a, y: (r0>* 

move .. Itstartyhe.rO . , 
. move a(endyhe-startyhe) ,rl 

rep . rl 

move a,y : (rO* .. . 



; inform the host 



; value to set x memory to 

; just in case/ set to linear buffer 

;set starting address low y-memory 

;set loop, count 

; clear it " 

; set starting address high y-memory 
;set loop count 
.-clear it 



.-"set "iinear buffer control../ 

■ move .; mO,y:<linear 

•set the CRC-16 protection checksum as applicable and set the : 
; CRC-16 checksum mono frame bit count for the old ISO method: 

• a. header bits covered by any type of frame ... v ■ •• 

; plus bits for the left channel also apply to any type of frame 

• b, save, old .ISC bit count.. for this frame . 



bset 
move 
move 



#PROTECT.y:<sterec .-checksum protection applies ;i-YES.: 

#>CRC BITS A+CRC BITS B.a ;header plus one channel cits 
a x crcDid"' ~ - " the old ISO CRC-16 bit count 



rcheck the switches tc determine bit rate . and framing type 
iget the external switches to determine: 
; PCM input data sampling rate 

; type of. audio compression to format /^or output 
'; if KUSICAM. the frame bit rate . 
; if MUSICAM, .ancillary data baud rate 



(MUSICAM/C722) 



GET_S«ITCHES_CD gsws_03 
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ysz 


<getsws 


move 


xrtstsmpl.yl 


move 


yl,y:smplrte 


move 


x:tstfnrie.yl 


move 


yl.y: frmtype 


move 


x:tstband,yl 


-move 


yl.y.bndwdth 


move 


x:tstcode,yl 


move 


yl , y : oputcde 


move 


x:tstrate,yi 


move 


yl.yrfrmrate 


move 


x: tstbaud,yl 


move 


1 yl,y:baudrte 


move 


x:tstoccs,yl 


move 


yl,y:<oidccs 



;set framing mode led 



move 
move 



y : f rmtype, xC 
xC . y:cpfrtyp 



?set PCM data sampling race code. 

; set type of frame imonoi to code 

•set bit allocation sub-band width code 

; type of encoded output (MUSI CAM/ 3722 ! 

; set the frame rate i/p code 

.-set ancillary data baud rate code 

;Set MPEG-ISO VS old CCS C3C1CCC ; S 



.-set current frame type " 

; set current frame type fcr output to 



/indicate mono framing icnly frame type, supported). 

bset #STEREO_vs_MONO.y:<stereo 
; based on sample rate (low or high) set the addresses for various tables: 



.-address of fc_i table for low rate 

; address of fmap table for low rate 

.-address cf .ThresSLB; table for low rate 

; address cf Threshld table, for low rate 

,-address cf cb table for. low rate 

; address of g_cb table for low rate 



move . 


y:smplrte,b 


tst 




.jne " 


<_hi_tables 


move . 


#b ilo.rO 


move 


tfmaplo.rl 


move 


ttThxSLBlc, r2 


move 


#Thrhldlo,r3 


move 


*cblo,r4 


move 


#g_cblo.r5 



r indicate coding at low sampling rate for compression 
bclr #U)W_vs_HIGK_SAMP:,ING.y:<scereo 
< set tables 



. 

rotables 
. ~ move 
' move ■ 
. move" 
' ■ move- 
/trove' 
move 



#b ilo.rC 
flfmaplo, rl 
#ThrSLBlo,.r2 
«Thrhldlo.r3 
#cbio, r4 
*g cblo.rS 



;address of c_i table for high rate - . 
; address cf fmap table for high rate 
; address of ThresSL3 table for high ra: 
; address cf Threshld table for high ras 
; address of cc table for high rate 
.•address of g cb table for high rate 



r indicate coding at high sampling rate for compression 
- bset '^UDWVs^KIGH.SAMPLING.y^scereo 



set 



tarxes 

' move 
move 



rO,y:b_i 
rl ,y : fmap 



;set addr of b_i table selected' 
.-set addr of fmap. table selected 
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move 
move 
move 
move 
move 
move 



r2;y:7hresSLB. 
, r3 , y :7hreshld ■■ 
r4,y:cb 
r5 . y : g.cb 
HDbAddTbl 6db,r3 
r3,y:dbaddtbl 



;set addr of ThresSLB cable selected 

;set addr cf Threshld cable selected" 

;sec addr of cb cable selected / 

;set addr- of g_cb table selected- 



; based on the sampling rate and framing bit rate selected: 

set the sampling rate, code for the ISO frame header 
; set the framing bit rate code for the ISO frame header 

• set the frame size in words and bits 
] set the applicable bit allocation control parameters * 



move 
move 
est 

• jeq ". 

rep 
move 



_smplcds_ 



move 

move 

move 

move 

move ; 

move 

move 

move 

bclr- 

.jelr- 



*samplng, rO ' : 
y :smplrce,b 
b V tUC,nO 

<_smplcds_ 

b "' 
; (rOi *n0 



y: <r0)*,xO 

xb ,y :smplcde 

y: (r0>+.x0 

xO.y tsmplidbit . 

y: (r0)*,x0 

xO . y : <maxsubs ; 

<r0) + • • r • ' 

#4. n0 

HO t y :<cmprsctl. 

MO . y : <oldccs , _smplcf f s_ 



; encoding old CCS CDQ1000 



move 
move 
move 
jset 
bset 



y: (rO) *,x0. ■ 

tsmplidbit, rl. ; 

xb.y:smplcde 

#0.y: irl) ,_no_compress_ 

#C,y :<cmprsctT . •.. 



,-addr of sampling rate codes. ■ .- 
; off set to sampling code table • 
..-test for sampling rate of zero 
; k set register to advance thru, table' 
;;if code "is .zero, we're there - 



^position to selected sampling rate code 

; get ISO frame header sampling code , 

;.save ISO code to encode in frame header 

;get ISO frame header id bit 

;set ISO frame header id bit' • 

;get mono channel MAXSUBBANDS 

;set working MAXSUBBANDS 

;step over dual channel MAXSUBBANDS 

;in case of MPEG-ISO 

;CCS compression is not applicable 

;if MPEG- ISO. skip over old CDQIOOO's 



;old CDQ1000 frame header sampling code 
;to check ISO frame header id bit 
; save old code. to encode in frame heade: 
;if ISO high sampling, no compression ". 
;do CCS compression encoding. ... . 



^nc - compress_ 
" . . move" 
move 

move/ . 
•" " move 
. ' • move. 
: jmp ' 



y: !r0)+.x0 

x0 ,y rcmplidbit 

y:'ir0)'*.xO 
xO , y : <maxsubs 
(r0> 
' < aftccds_ -. 



_smplsffs_ - 

; MPEG - ISO encoding . . 

move irZ.) *n0 



: aftscds_._' 
"* ' . • .move 

move . 

move 



y:*ir01*.x0 . 

. xO , y : <maxcr itbnds 

'. y : irO) ,x0 "■' -< 



;get old.CDQlOOC frame header id bit 
; set ISO frame header id bit 
; get mono channel MAXSUBBANDS 
;set working MAXSUBBANDS 
;step over dual channel MAXSUBBANDS 
■ ; continue / 



;skip over old CCS CDQiO 00 values 

•get MAXCRITBNDS value • sample rate * 
;set MAXCRITBNDS at selected sampling 
; oet NMSKFREQS value 2 sample rate -\ 
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move 
move 
move 

. est. 

j«<3 

rep 
move 



x:,y: <nmskfreqs 
y : frmrate.c 
♦bitrates. rO. ". 

. #8 , nO : . 

<_bit_cf f s_ ■ 

to' - '• V' " 



<rO>+nC v 
_bit_offs_ 

; sec che cable offset based or. sampling rate' 



; set NMSKrRECS at selected. sampling 

.-rest bit rate to set audi c data size . 

;addr cf ; framing bit rate infc 

'.-test for rate of zero . 

:; & set register to advance "'thru table 

; if code is zerc .we're there 



position to" selected bit rate code. 



move 

■ , "tst- 

.jec • 

. '«F 
- . move 

bit- smpl ' 

jcir 
. move 



y : smplrte ,b 

b - * .-• U 4 , nO 

_bit_smpi_ 



b 

irO; 



bit cds- 



move 
jset 
move 



aftbcd 



move 
move 

move 
move 
move 



#0 ,y: <oldccs, bit cds 
(rOJ * . ~ . ~ 



y: (rC> *,nt •. 

#0;y :<61dccs, aftbcd 

. (ro- • . ... :~, 



y : f rO) *, yl . 
y : irO! . r2 

al ,y :bitrate 
yl ,y : coucmus. 
r2,y:frmhits 



;get the sample rate; code * 

;test. if low sampling rate 1 

; & set offset to proper sampling. rate 

/if low race," addr is set 



;position to selected sample rate 

..-if MPEG- ISO. - continue 

; adv to old CCS CDClOOO.'s code ■ 



.-get bit rate code for frame header- 
;if old CCS CDQlOOO's, continue 
/skip oyer old . CCS . CDC1C0C code 



;selected bit rate frame size in words 
; number of audio bits in ar. output frame 

/audio tit rate code for frame hdr .. 
;set t of words in a frame 
;musi cam audio port i or. of frame 



rset bandwidths based on sampling rate,; bit rate and band' widt 



move 


- y : smplrte , fc " " 


;set 


move 


y : f rmrate * a ■ 


. ; set 


jsr. 


<bandwidth 




move 


y : 23_psych, a . 


/get 


move 


a t y: <usedsb 


: ;set 


move 


■'■ ' # > M I NSUBBANDS CCS , xC 


;set 


cmp. ' 


' xD.a *>MAXSUBBANDS_ 


CCS,xO 


jlt'. : 


\<_de"f ault -> used_00 "• 


:it 


cmp . 




' ;eee 


jit 


. <_af ter_used_00 ■ 





: seiertzon 

sn sampling rate 



:he selected sub -bands, if any 
Initial used sub-band value 
mm mum sub* bands to be used 
. ;see if subs is toe small, 
st default value, of maximum- ' '. 



less, we're ok 



_def ault_used_00 • 

.-default; the used sub-bands tc max sub-bands 
.' move ... • xO.y :<usedsb , 
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_after_used_:3 '■ 

; calculate buffer length controls 

move . #>2 ,xl " 
' mpy • xl.yl.a '..*>!. xl 
. asr .'■ a . / 
. neve ,\" aO, a 
■ sub : . xl . a ■ - " 
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; set che mod buff er. for 2 frames 
>• align- integer ^resuit 
.•shift, integer result' V 
; (fraTne numb words * 2 . - 1. 



'.now save the above buffer control values /. 

move" , - ar,y: <outs"ize set circular buff er * ctl.f'cr.. c.p buffer 

; set the type cf stereo intensity code- as.' nominal • 4 subbands 



move #>:ntens:ty_4.x0" 

move xO , y : scintr.s 



ihst .applicable . 

1 r stereo intensity code izr default cf 4 
..•save for frame header ir.fc . 



Set output write read pcinter to something ' safe' since 
be. on "before it is set properly. 



interrupts .w;3 



move 
move 



>f ramebuf , rO 
rO. y : <oprptr 



; address of output encoded frames buff* 
.set the output read buffer •■' 



up for ancillary data to be decoded from a framed and transmit via 
a.. 2erc the input data byte counter and bytes for current frame 
. .b. set address of clock table, baudclk, based on baud rate':: ti 
c. "set table offset by baud rate; . 

: these are standard CDQ20CO set by macro, BAUDCLK. in box cc; 
.0 « 300 baud ~ 
. . 1 "» 120C baud 

2 • 24 00 baud " 
.3 - 320C baud - 

4 « 4800 baud; 

5 » 36400 baud 

6 * 96 00 baud' 

7 . .19200 baud . : 
transmit enable 1-for xon/xoff 
and' set the clock for baud rate from the table 

get and set the max bytes for baud rate from the table 
set the- data. input and output pointers ' , 
set receive enable., 
set . receive." enable . interrupt. V 



rs232 

JTU ' 7 ) 

. asm : .: 



set 
get 



move 
move 
move 
move 
. move 
tst 

rep 
move 



■ baudrte 



* D , X0 . 

xO.y: <bytecnt 
xO.y: cbytesfrm 
sbaudclk. rO 
y : baudrte. b . 

b ;;. ...K3.n0 ". 

<_baudrte_ 
b 

trOJT.o ■•■ • • 



y: ;r: 



;zerc the received. data counter' v 

; zero the byte counter 

,*zero the current frame byte -counter 

,-get data baud rate table address. ■ 

,-set to. access clock at. baud rate 

; test for rate cf zero 

; & set register to advance thru tab i 

; if code is zero, we're/there 



;position to selected baud rate code 



;get clock value at" baud -rate- 
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move. y:smplrte.nO 

move' * fcdatabytes, xO 

move y:(rO+nO),nl 

move . nl , y :maxbytes v 

move. xO, y :<dataiptr 

move xO, y :<dataoptr 

movep" r2. x:<<M SCCR 

bset #M_RE,X:I<M SCR 

bset #M RIE,X:«M_SCR 

■ bset #M~TE , x : < <M SCR 



.-now gee sampling rate effset 

;get addr of the. data byte buffer. 

;get max byte, count at sampling . rate - 

; store maxbytes. for. scixmt to check 

,-address for next byte, received 

,-a'ddr for next byte to output to frame. 

.-set the -clock for selected baud rate 

.-set receive enable 

.-data expected set. receive interrupt 

: set. transmit, enable . 



; enable the host command interrupt 

■"' bset:-' #M_HCIE,*.:<<M_HCR \' / 
; Set and clear a ;f lag so . we can set the scope trigger . 



ON B I TALLC C_LED_ CD 
OFF - BITALLOC LED CD 



;set a. different flag for debug 



Now form the two pointers to the output buffer'.; 

frmstrt is the write' pointer and frmnext is the read pointer. 

frmstrt is used to point to where the current buffer is for out put ting 

data into. This data is a result of the current musicam coding. 

frmnext is used to point to the address for outputting of data 

toche external device. 



move #framebuf ,r0 

move . y : <6utmus , nO 

move y :<outsize, mO 

move rO,y : <f rmstrt 

. move • (rO) ♦ho 

move rO,y:<oprptr 

move rO , y : < frmnext 
move : . (rO) - 

move . rO , y : <f rmlast 

move:. y : <linear ,mG 



, address of the output frame buffer 
;set the output read per. 
,;set the output buffer circular ctl 
;lst frame at start of buffer 
; advance to start of 2nd frame. 
;set the output read buffer 
;set the next frame to write into . 
,-set up last word addr of curr frame 
;for block sequence numbering 
; reset to linear buffer 



?set number of fixed bits required, and the number of available bits fcr audio 



3sr 

move . 
move 



<bitpool 

xO,y: f ixbits 
xl,y:audbits 



,-save fixed bit count 

,-save bit count available for alloc 



initialize for receiving data for xpeycho routines 



move 
move . 
move 

jsr; 



#inpcm, rO . 
rO,y:<ipwptr. 
#xbuf . rO 
<polyaini 



;get the input pem data buffer 
;set start address for input pem data. 
;set starting position in x buffer . 
;init the poly analysis filter 



IRQA set to' IPL 3, negative edge ( lowest priority)-. 

SSI set to IPL 3 

IRQB set to IPL 3, negative; edge {highest priority) 

HOST set to IPL 2 

SCI set .to IPL 3 ; 



movep #>$f 83f ,x:<<M_IPR 



;set int priorities and edges 
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' ,wait fcr- che dust . to settle before pushing onward - 

..move # >XCODE_STARTUP , a - ; 

- •;. '.- jsr <wait ™ • - .•.•■■■■■"'."•* 

SET_ADC_RESET ;stop A to D calibration ; 

;test; MUSICAM. versus G722 : : *\ ' : ^- ' % -\ 

■ ; . . if MUSI CAM, go to the TOP of frame processing 

; . if G722, jump to; that, routine and restart upon return 

move y:oputcde. a ; ;MUSICAM vs G722 

tst - . . a if zero, 

jeq ." <_go on_ : ;it's MUSICAM, enter that loop^ 
. '■ jsr <g722 . handle G722 , 

;G722 output selected, boot up XMCRG722 from the low portion of chip 

bclr. #ll.x:<<M_PBD ;clr boot C0OO for XMCRG722 bobt'Vi 0000/- 

,jmp xbootup ;bobt in XMCRG722 ' 

; jmp • . <restart ; restart with new switches ".. 

- _go_on_ .'" 

;handle MUSICAM encoding : 

. andi ; *$fc,mr • ■ . ; turn on the interrupt- system ■ -t'. 1 .-. 

,-main loop thru the frames of data set up by the left and. right 
; xpsycho.dsp for bit allocation and framing by the. xcode dsp 

top : ■ "' 

; : ; idbg • . " 

" nop 

; ' nop * 

. ; , move y:dbgcnt,a 

move . #>l,x0 ■.- 

; add- xO,a 

>move a,y:dbgcht 

; jmp <_initl.. 

.;!.!! dbg ~ 

.;i::dgcst bset WATCH DOG ; tickle the dog 

;M!dgcst . bclr .WATCHJOG /tickle the dog 

TOGGLE_WATCH_DOG_CD 

,-get the external switches to determine if .any changes that .signal a restart 

GET_SWITCHES_CD gsws_10 
" j sr" . . ' <getsws 
jclr." #4,.y:<not_appl,_lets_gd ; : 1 !debug - remove for normal 

;test MUSICAM versus G722 : . 

if G722, jump to restart 
; . if MUSICAM, continue -' 

move X: tstcode,a '." ; ; ;MUSICAM vs G722 

X" ■ :tst , -. ; a' . -./;if zero, it's MUSICAM 

. *' jne . <restart ■ • ;it's G722, start over to boot 
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; : : :2/3/93 * . ' "; 

TST_SE7_G722_LA7A_CD. restart ■ 

! ! !2/8/93 ,\ ~ . " . ' • ■• ■ 

•w» have to restart. with new framing criteria, .. 
\ protect the decoding of frames by clearing 2 successive frame 



move 
move . 

■ clr . 


y:<frmstrt,r6 ' , 
. y : <outsize,m6 

;a, : ' . 


\ ;set starting for output . buff er 
;set the. output buffer circular ctl '. 


; do - 

. move 


y:<outmus. clear 1 
a,x: <r6)~ ~ . . ~ 


; clear the 1st frame 


_clear_l " 






;.! ! 12/3/53 ' " 
TST SET G7 2 2_DATA_CD. restart 

; ! ! 12/9/93 ~ 




■■■■■ jclr 
bclr 
move 


* 0 . y :< t imer . _c 1 ear 
#0,y:<timer 
y:'<f rmnext , r6 . 


; check for new frame ■ V: 
.;set starting for output buffer 


do ■" 
move ; 


y:<outmus. clear_2 
a,x: (r6>* . 


• '■; clear "the 2nd frame • 


_clear_2 






; ! » ! 2/8/93 

TST SST_G722_DATA_CD, restart- 

; 1 "!.: 2/8/93 ~ ■ 




jclr: 
■ bclr 


*J0,y :<timer,_clear_2 
*0,y:<tirner ~. 


; check for new frame - 


move 


y:<linear,m6 


.; restore to linear buff er. control 


jmp 


<restart 


; let's start anew 


_lets_go 






initialize stereo control settings to reflect current transmission - 


-/ jsr 


<setctls ■ 




jclr 
bclr 
bclr 


#0,y:<timer, top 
#6;y:<timer 
■ #o,y:<qtalloc 


; check for new frame . 

; clr 0. 024/0 .036 msec timer bit alloc 


;now set the 


used sub -bands for this 


frame 



move 
move 
move 
cmp 

•jl'- . 
cmp 

ji-- 



v !- 3 nsvch.a ; get 'the selected sub -bands, if any/. 

av-Tusedsb ,-set. initial used sub-band value^ 

#>MINSUBBANDS CCS,x0 . ;set minimum sub-bands to be used 
xO a #>MAXSOBBAKDS CCS.xQ ■ ;see if subs is. tco small 
. ' • " ; Sl set default value of maximum 

< default "used 10 * )if less, default the used sub-bands 

0 - ;S ee if less '.than maximum subrbands- 

<_af ter_used_10 ; . ; if less.- we' re ok- 
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_default_used_lC 

,-defauit the used sub-bands to. max sub -bands - 
move xO.y :<usedsb : ' ' - ■"' - . 
._af ter_used_10 

;set che CCS compression as per control parameter (n_psych> 



bclr 
move 
•/move . 
cmp . 
jit 
bset 



MZ , y :<cmprsctl 

y :n_psych, a 
. tt .5,x0 
. xO . a 

<_nc_corapress. 

SO . y7<cmprscti 



■;default as do hot, use CCS compressicr. 
;ge- the parameter from the table. 
;if less than .5, no CCS compress 



.see 



use CCS comoressior. cr not 



.if less, do not use CCS compression 
.-otherwise, set flag to use 'CCS congress. 



_nc_cbnpress 
;the new data 



for the next frame is a-- sez 
<dcf rame 



lets do it." 



INTERRUPT . HOST_CD "; inform the host 

; pass the KUS I CAM~encoded frame off for reed solomon encoding 



move y : <f rmstrt , rC 

move • y: < outsize, mO 

move frreedsolbuf , rl 

. "sr . <new rs / 



,-set starting- for "output buffer 
;set the output buffer circular ctl 
,-set starting for output buffer 
; call Reed Solomon .encoding routine' 



: : dbg 



: : dba 



jmp 



<top 



idbg: skip Reed Solomon 



;ccpy 



the reed solomon encode frame into the output frames ou.fe.s 



move. y*. <frmstrt ,rC 

move y : outsize , mC 

move ireedsolbuf , rl . . 

do y : <outmus ,_copy_rs 

move x: (rl)*,xC~ 

move xO.x: (r0> : - ; . . 



;set starting for output buffer . 
; set the output buffer. circular ctl 
; set starting for output buffer 



_copy_rs 



end 



<top .. 
start 
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op: 



: . mex 



• (c) 1991*. Copyright Corporate Computer Systems, inc. All rights reserved. . 
.; \URDCDSYN\autosmpl .asm: modified to t . coordinate with BEN'S mux 

title 'Decoder Auto Determine Sampling- Rate* 

• This routine attempts to determine- the sampling rate cf MUSICAM frame of • 
•'■•-■npu- data being fed to a MUSICAM decoder. It tries to match on the 

; selected, bit rate a corresponding, sampling rate that are predefined fcr. 

• the given units "capabilities. ~- 

. ;on entry: - \ V < ■' - • : 

y:frmrate - indicates which bit rate was selected .. 

yrcctlalgs * NO LINES bit is set as to whether split frames possible 
x-maxtries » the number of attempts at framing that .should be made • 
' \ ' .. before determining that the input data is* net MUSICAM : 

include 'def. asm' 

include ' ' '. . \ common \ioequ. asm' 
. ' include- 'box_ctl. asm' 

include * box_smpi .asm' 
■. include ' box_tbls .asm' 

" section highmisc 
.. xdef syncptrn . . ' 



org- 

stauto_yhe - . 
syncptrn 



yhe i 



ds 



;4 possible sync & hdr patterns 



"endsec . 




section 


lowmisc . 


•xdef ■ 


synccnt 


xdef 


synemtch 


xdef 


synewrds 


xdef 


syncbits 


xdef 


syncf rms 


xdef 


synced 


.org ••' 


yli:- \,. 



stauto_yli 

synccnt ' ds. 
synemtch - ' ds 

•syncwrds - •' - -" ds.' 

■syncbits ds 

syncf rms ds. 

synced - - ds 

endauto_yli 

"endsec 



■-. l 



; count of sync patterns. to check 
; pattern matched (odd-padded) 
;words per frame (if pad diff -1) 
;bit offset to frame start , 
; number of frame to sync, up ..on 
•count of frames syne'ed; 



!BEN 



section. highmisc 



xdef 



srehrate 



! * 13EN. 



SUBSTITUTESHEET(RULE26) I^^al j 



WO 96/32805 



FCT/US96/0483S 



-US- 



xdef 


srehcries 


; : : ! BEN 






xdef 


■ maxtries 


' xdef^ 


cstsrcpl 




xdef ■ •■ 


fndbit 




xdef 


. fndsmpl 




'. xdef 


■f ndidbit ■ ■ 


xdef ■ 


padbic 




.xdef. ' 


sample table 


•erg • 


xhe: 




stautc_xhe" 






; : : I BEN * 






srehrate -.'\ 


dc ' 


C. 


srehtnes 


dc ; 


0 


; ! ! ! BEN 






maxtries ' 


: dc ■ 


c ■ 


tstsmol 


" dc - 


0 ' 


f ndb- t 


-dc 


C 


fndsmpl .-' 


dc ' 


0 


fndidbic 


-dc • 


0 


padbic " " 


dc 


0 : 


• . '. ; SAMPLETABLE ; 




endautc_xhe 






"endsec 






org " 


phe: 





: ! BEN 



; index to rates in sample race table 

; failure counter of auto sample attempts- - 

.•current auto determine max tries.. 
; sample code under test 
;bit rate code from frame header 
.•verify found sampling race selection 
.•verify found sampling race id bit 
.•save padding bit from the header . 

.•table for sample rate auto determination 



autcsample 

CLR_DAC_RESET .• 

'; i ! ! BEN : - 
,-;;turr. off the. interrupt system 

';; '• on - • #S03.rar 

;;; Now set priorites of the IRQ A and SSI peripherals 
IR3A priority - 2 
" ; ; IRQB priority.- 3 
' SSI " priority • 2 

;;; SZl priority * 2 



.-clear the OAC reset line to mute outt 



;•: 1 ; BEN 
auto AA 



movep #>Sa03e. x*.<<K_IPR 



,*set ir.t priorities and edges 



ysec 



« AU70NEXTFRAME , y : <process . _auco_continue 



;build up the. frame length table -based on the selected bit rate 



move • *sampletable,rO 

move #ALTTOBY$ AMPLE , nC 

move x:srchrate,b 

tst ■ .b ■- * 

jeq. _auto_BB "• 



;addr of sample rate frame lengths. " 
;set auto sample offset .z next rate 
;get next rate - index to search izr 
■; see if 1st sample rate in table 
;if so. skip address adjustment . 
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do " b auto BB * index count/ adj table add: 

■move IrOJ+nO". * ; advance to next sample rate .. 



_auto_BB 
; 1 ! !BEN 



move 
move 
move ' . rO , rl 



Sfthe number of sampling rates supported; set. table of frame lengths - - ; 
•I do - #NUMSAMPLERATES. _ autO_900 ■ 

,-7/12/94: test sampling rate as not applicable to current project- ;^ 

r Q v«sverea ; save current . table address ';'.*-. 

'' ? move x i^fb . ;get' rate applicable code (0 - APPLIES) 

Sclr « y:oldccs . - . .-clear y:oldccs frames CDQ10C0 f lag 

ZZZ b ' '* see - f not appli cable { ~ l ' N/A ' ' • ■ ■ 

jlc auto_800 ■ ; if. N/A, go to try next sampling rate; 

.now test for framing, on old CDQ1000 low sampling rate old frames 

• iea ' auto A ;if zero," not . old ccs CDQ1000 frames '■ 

bset" #0.y:oldccs ; indicate old CCS 

. bset #1 v:oldccs ■ .-indicate old CDQ1000. frames 

bset ■.. ^DECOMPRESS^PACKED^y^ctlflgs ;handle CCS compression 

_auto_A 

Yget the MUSICAM frame header ID bit that indicates high vs low sampling rates 

x- trO)+ xO : ;get the. high/low rate hdr id bit 

x6.y:smilidbit. ;save for translate rate code; 

rO.rl jaddress of entries: at sample rate 

^-r^ar* rhe raw bit rate code to the internal rate index code , (A . 

.zsk ^tsssirr-:-'- ■'. ;^»- h ™;^s as.- ; ■ 

nop- . .. q ;pos . to bit rate translate . 1st value , 

"° e ill InS - pos to bit rate translate 2nd value 

.. . v smplidbit.no ;low (0) or high (1) sample rate select 

- . move y.smpxioDit.nu ^ ^ i£ ^ s . jpported 

move • «>-i.a o .-get the translated rate index code . 

V ™« 6 . y:(r0*n0).x0 • . ' ; l ee if not supported rate .... 

je$ °uto_800 ; ; not supported, try next sampling rate 

.•set the supported framing bit rate table index code 

.. move '. . xO.yVfrmrate' ■■ rate index code . . •. 

Vset up the framing patterns table at Sampling .rate/framing bit rate 
, . move .. •ACTOBVBXTJATE.nl . : :numb peters per borate . . . 

move .. y:frmrate.b^ q ... . f esc if code zero ■ ■ .. 

. . . t8t ' b - x. iriJ +.xu '. t sec cable sample rate code 

.... -if zero, skip addr adjustment 

W"-- • ■ 5 auto - 00 ;■ . .- .-.position, to. selected bit rate- 



rep 
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move . 



(rli +nl 



.- aU '°" 00 ttiove / x0.x:tstsmpl' ; save sample rate code 

• ; build up the cable. of framing patterns at this sample/bit rate 

: move ttsyncptro,r2 , /table of framing patterns to ma cch. 

"■/set at least the 1st two patterns: unpadded . and padded (possibly) 



move 

tst . 

jeq 
move 
move 
tst 

jeq 

move 

move 



x: (rl)*.b : 
b. . b,xQ'; 

_auto_B00 
x0,y:7r2) + 
x:(rl-)*.b 
b #>l,xl 

\_auto 10 ; , 

b,x0 ~ 
. #>2,Xl 



_auto_10 



move xO,y: (r2> + 



; get 1st defined framing pattern 
; if 1st pattern is zero, not valid 
; & save 1st defined framing pattern / 
;bit rate not supported « sample rate . 
; insert the pattern in test table. 
; get 2nd defined framing pattern . 
;if pattern zero iNO padding possible*- 
; & set pattern count to 1 tat least) 
;if 2ero ( use 1st pattern over again 
;else, use the padded framing pattern 
; set pattern. count to 2 

; insert 2nd pattern in test table 



; now if split, mono framing is possible, set up to. look for those frames 



jclr 
move 
tst 

jeq 

move 
move s . 
tst 

jeq 
move 
move 
move 



#NO LINES, y:<ctiflgs, auto 20 ; NOT appl if. one or both lines 



X: (rl)+,b 
b . b.xO. ;, 

auto 20 
x0.y:7r2)- 
x:(rl>*.b 
b #>3.xl 

auto 20 
b,x0 ~ ' 
#>4,xl 

xO.y: (r2)* 



iww *w » *»w* — — — — 

•get 3rd defined framing pattern . 
; if pattern zero (NOT split frames); 
; & in case of duplication as 4th 
; if 2ero. NOT eligible for split frames 
; insert 3rd pattern in test table 
; get 2nd defined framing pattern 
;if pattern zero (NO padding. possible) 
; & set pattern count to 3 
;if zero, use 1st pattern over again . 
•else,, use the padded framing pattern 
;set pattern count to 4 
; insert 4th pattern in test table 



_auto_20 

/set count of framing patterns inserted in the framinb pattern table 

• ■ . ; xl,y:<synccnt : .- ; ;set the pattern count for framing. 

? get the frame' length values at this - sample /bit rate- 



move . *t frame values, r0' 
.move #FRAMEBYS AMPLE , nQ 
move; x:tstsmpl,b 

. tst ■ ' b 
jeq : • \ _auto_40 



,-addr of sample rate values . 
; numb parameters per sample rate 
•to see if need to adjust address - 
; if code 0, no need to shift, address 
;if 0, get the 3 parameters . . 



;adjust, the table address to proper sampling rate parameters- 



rep 
move 



b "■■ 

• (r0) *h0 
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auto 4 0 



move 
move 
tst 
jeq 



#FRAMEBYBXTRAT£. nO 
y : f rmrate, b. . 
b . 
auto SO 



; numb parameters per framing ci: rate 
;test bit rate to set audio data size 
;if cede G, no need tc shift address, 
;if 0,. get the parameters 



/adjust the table address to proper framing bit rate parameters at sample rate 



rep 
move 



b 

(rOJ+nO 



auto 50 



move 
move 
: move 
move 
move 
move 
move 
tst ; 

jeq 
move 



, rl 



auto €0 



move 
move 
move 
move 
, move 
bclr 
bclr 



v: irO) ■ 
rl.nl 
(r0.)* 
(rl) +nl 
(rl)- • . 
rl , y : f rmemod 
y:(rC)*,b. 
b ' nl,r: 

auto_60 
Tri) - . 



r 1 , y : <syncwras 
y: (rC)-,x0 . 
x0,y:<syncbits : 
#0,r3 ' 

r 3, x: srehtries 
#0,y : <protect 
#a,y:privacybi: 



/get the words per frame at rate . 
;tc calc circular doubled buffer cti 
; skip: the bit count per frame 
;dcuble framing buffer 
;fcr circular double buffer ctl 
;save framing circ buffer ctl 
;get any padded frames. DIFF value 
;to see if word count adj needed 
; & restore frame length in words 



,* decrement word count 



padded 



;set the words per. unpadded frame 

;get any unpadded frame extra bits. 

;set any unpadded frame extra. bics 

;tc- zero the f ailure counter .. 

; zero the failure counter 

; start looking for CRC protection 

; start looking for privacy bit off 



auto 70 



:BEN 



;turn off the interrupt system 
ori #S03,rar. 



; initialize for the interrupt routine ,tc try to frame 



move . x : srehtries # r3 

move #0,x0 

move ( r3 1 + 

move r3 ,x: srehtries . 

move xO,y:<inpstat 

bset . #2,y:<inpstat 

move. , y :f rmemod ,a0 

move a'O ,y : <inpsize 

move .. #>AUTO_FRAMES.y: 

move ' yl ,y : <syncf rms 

move xO,y:<synced 

move tsyncbuf.xO . 

move. x0,y:<inpwptr 



; current failuer counter 
; clear all bits 
; increment attempt, c.tr 
;.save incrment failure counter 
; flags to control i/p routine. 
;flag to do pad framing. 
;for framing buffer size 
; store for ssirec rtn to store 
;# of frames to match 
;set number cf frames to sync 
; zero the synced frame counter 
■/address of the. input buffer 
•"/set the input write pointer 



'; ; ; before turning on- the interrupts. -restart the input data s- 
; - ; that inputs bits to form 24 -bit. words . 



ream process 
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•£■•.*.' move ' #BitlT6Ih, r7 ;'init the bit input, buff er. ptr 

-. andi • #$fc,mr'= ;tum oh the . interrupt system ■". 

• ; ;ha«9 out here until, framed or failed 

'■; ; auto 80 ■ ; '' 

■ . "bset WATCK_DOG - stickle the dog 

;.; . bclr WATCK_DOG - ; tickle Che .dog • 

. .bset #AUTONEXTFRAME, y : cprocess 

; I ! I BEN: perform old ssirec auto sampling on current frame. :j 

Jauto_continue- - ■ 

; we are now ; attempting to frame: . 

;if start of "syncing", (bit 3 not -set)", .'" 

V. : . set 1st word .of pair to check 

; set starting word offset- • ' r 

; .■' set flag to set 2nd word-"". 

'■ \ continue to react when 2nd word to check comes in 
;else, • 

; . see if. waiting for the 2nd word or . count ing looking for the next sync 

move . y:frmcurr,r4 ■ ; set start of the frame addr ; 

move- - y:frmemod,m4 " ;set circular buffer 2 frames 

_auto_CC . • .' 

; start looking for framing pattern" , 

jset 33 ,y:<inpstat. auto 35 ; we have set the 1st. word, continue 
" dr a r4,y.:wrdof f". ":- ; init . f or the 2 words to check 

,■ & save initial start word offset 
move x:ir4)+,al . ;set 1st" word; to check (incr write ptr/ 

bset . *3,y:<inpstat ■■ : ;flag to check the 2nd. word 

#0,r2- ; start count 'of words looking for. sync 

auto CC ;try 2nd word .• 



move 
jmp 



;if waiting for 2nd word to check (bit. 4 not set), 

put new word in aO to look' for the 24. bit pattern 
; - . start the bit .offset .counter 

; loop through 24 bits over 1st and 2nd word trying to match one . 
of the defined sync patterns 

•el se ' 

..; we found: a pattern and are ' try ing sync up on the next frame 

- aUCO - 35 j sec #4 y<inpstat,_auto 105 ; count ing to check next frame sync 

move x:(r4),ab ■'. ?set the 2nd- word to search • 

" • move' • #0,rl . ? init the bit of f set counter . 

do #24,_auto_65 

-;see if current offset contains a. valid sync pattern . 

- "move al b" -'•'-'""'- , ' -current bit of f set pattern 
. move ' - #syncptrii.nO- : -:- „; addr of array of sync, patterns . 

'. 'move- ft.o.rO- - .;offset to 1st pattern 
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;loop through the available sync pa c terns 



do V : <synccnt , _auto_55 

move . y: (r0*n0) , xO ~ 
cmp . xO,b 
jne . _auto_45 - • 



;get the next sync patterr 
;see if pattern matches 
;if net, try next patterr. 



to check 



;we found a framing pattern,, set the indication and break out to proceed 



bset . 
enddo 
enddo 
jmp 



#4 ,y :<inpstat 
: auto ^65 . . 



Vindicate the match • ' 
;end y:<synccnt loop 
;end #24 loop 
;we matched the "patterr. 



_autc_45 

; try the next framing pattern 
move. (r0)«i*. ' 

_auto_55 

;try the next bit for a match of a framing pattern 

: *■ asl • ; " a ■ <rl)+- 



.-shift left into al 
; & increment the bit. shift counter 



auto 65 



;if the pattern was not matched, ... 

set the .'next word as the' offset. 

increment the address for. the next word 
; exit the interrupt routine and wait for. a new 2nd word to check 



clr 

jset 
move 
move 
add- 

cmp 



a . £r2)+~ 

#4 , y : < inpstat , _auto_75 
y : <syncwrds , a 
#>FRAME_OVERAGE,xO 

xo.a. ~r2,x0 



. xO . a 



r4 ,y:wrdof f 



;zero the syne'ed frames counter . 

;& incr count cf words looking for. sync 

;if match, set up to check, next frame 

;get number of words per frame 

;to add some cushion to frame length . 

;add cushion to frame length ... 

; & get words checked so far 

;test more than frame checked. for sync 

; & save. possible new start word offset 



;if more than a full frame has been searched without finding SYNC: 
; . we failed at framing, at this, sampling/bit rate 



jit 
move, 
jmp. - 



auto 155 ". 
x:(r.47+,al/ 
auto CC 



../indicate failure' at sample/bit rate 
,-set new 1st word to check (incr ptr) . 
;try new 2nd word"; 



auto 75 



;frame matches' a sync pattern: 

;. update the syne'ed frame counter . 

save the sync pattern match, index to test for padding or not 
; store the new bit offset to start this frame . 

set the address and offset for the next frame ■ 

see if padding needed, . 
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move a.y:<synced 
move • rO , y : csyncmtch 
move . rl.y:bitoff . 

move y:vrdoff.rO 

move y:frmemod.mO 

.move y :<syncwrds,nO 
move." y:bitoff,a 

move irO) *n0 . " 

move y: esyncbits.xO 

add xO.a #>PAD_SLOT,xO- 

jclr . #0.y :<syncmtch,_auto_B5 

add xO.a 



; update the sync' ed frame counter 
.-save matched pattern index 
;save the bit.offset 
; address start last frame 
;set. circular buffer 
; words to next frame 
; get the bit offset start . 
; address for next frame start ' 
;get unpadded frame extra bits 
; add extra bits to offset . 
.; & set upo for any neede padding' 
; match index even. NOT padded. 
; add the padded bits 



_auto_85 • ' ;'. . 

; see if bits' exceeds full, word and adjust 



move 
crop 

sub 



#>24,x0 
xO, a . 
_auto 95 
xO.a 7 (rO) - 



•24 bits' per word . 

.-see if next address needed ^ 

;if offset within word, continue : 

.-adjust the bit offset by full word. 

; & increment the start . address ; 



_auto_95 

•set address and bit offset to match the next frame 



move • 


rO,y:wrdof f 


move 


a.yibitoff 


move 


(r4) + 


move 


y : linear , m4 


move 


y: linear ,m0 


bclr. . 


#5,y:<inpstat 


rts 





; start next frame word address 

.-start next frame bit offset ,. 

; advance the write pointer 

.•restore as a linear buffer 

.•restore as a linear buffer 

.•clear reached frame indicator 

; BEN - exit rtn and wait for next frame 



auto 105 



;if ready to check the new frame as it comes in 

test if expected frame start address has been reached 

if so, set indicator to check the next word received (2nd in the frame) 
*. * otherwise, keep accepting frame words into buffer 
*else 

]/. check for the pattern in the 1st and 2nd word (latest received' 



jset 
move 
move 
cmp 

jne 



#5,y:<inpstat,_auto_115 l 

. r4 x q '* to test if frame start addr .hit 

y:wrdoff,a .-address to match 

xO a ' (r4) + '- ?see if .address hit ■ 

'. ' ; . ; ; & increment the write pointer 

auto 155 . ;if not. frame length problem 



;we have the 1st word of the frame ^ 

; set indicator. to check 2nd word for framing pattern. 



bset 

;jmp ; 



#5 ( y:<inpstat 
auto CC 



; indicate check next word for pattern 
;to check 2nd word 



auto 115 
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:we now have -z he 2 words" to check this frame for framing 

. c X r . a #>l,xl ; clear the register to align pattern- 

: ; & set to increment frame match coun 
move x:(r4)-,a0 -.-retrieve 2nd word (back up tc lsti, 

move x:lr4)+,al \ ; retrieve 1st word : forward tc 2nd) . 

;if -a. bit offset, shift over the expected bits to align the pattern;. 

.move y:bitoff,b .... ;to see if a shift is needed 

tst ■ *b - see if zero ■ 

■ jeq' auto_125 ; if -. sc; skip the shift .' 

,-shift. left to .align pattern in al- . , . - '.- 

do v b,_auto^l25. ■/- 

■ asl V /a .. .~. \- ; " : " • 

_auto_125 •■ - -- 

;see if ..current offset contains a. valid sync pattern- 
move ai f b ;'tb test -shifted pattern from frame 

• . . • move #syncptrn,nO ;addr of array of sync patterns. 

. move #0,r0 ; offset to 1st pattern, 

bclr #6,y:<inpstat ; indicate no match yet. 

; loop through the available sync patterns . 

do y:<synccnt , auto_145 ' • 

move y;<r0+n0),x0 ;get the next sync pattern to check 

cmp x0,b ;see if pattern matches 

}ne _auto_135 ... ; " . . ; if not , try next pattern 

; we found a framing pattern.: set the indication and. break out to proceed . 

bset #6,y:<inpstat .-indicate the match; 

enddo ;end y:<synccnt loop 

jrop auto_145 . . ; we matched tne pattern 

_auto_135 ■ .- - - ; " v 

; try -the-' next framing pattern 

■ move * ■- (r0) + . . 

V_auto_l45 •. '■ "f.- " : 

;if not a match,, we are not framed, try again . via f rami t or autosmpi;. rtn / 
jclr #6,y.:<inpstat ,_auto_155 
' ;we did match "a framing pattern • 

' . move y:<synced.a , ;get count of. frames sync'ed so. far 

- -add . xl.a y:<syncfrms,xl. ^increment count 

aw . **,a ./ & set to test if limit reached . 

' cmp xl.a : "y:bitoff ,rl ' . ,-see if sync frame count reached - 
cmp . , xi, a . y ^ & Mt t he bit ; of f set register .. 
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jit 



auto 75' 



/not at limit, gc set up f cr next frame 



,*we are now considered framed 
indicate OK 

; -put bit offset for this new frame in proper register 

/ put address offset for this new frame in proper register 

set the data gathering correctly 

exit the interrupt routine" 



clr ' 


a #>l.x0 


move 


. y:bitof f , r3. 


move 


y:wrdoff,b 


move 


#syncbuf,xl 


sub 


■ Xl,b . \ ; ! ! !BEN 


move 


b,y:wrdoff 


move 


• • b.rS . 


move 


xC,y:<inpstat 


jmp 


' _auto_160 



ir4) + 
■ : : 1BEN 



; a-0 indicates we'' re framed 
; & set to set flag to gather data 
;r3 is expected to" have the bit offset . 
; address of the last -matched frame star: 
.; starting address of input buffer^ 
./calculate. the start, offset into buffer 
; & increment the. input write pointer 
.save buffer address start word offset 
;r5 is expected to have address off se: 
;set flag for normal data gatherma 
.;done with auto sample this sample'rate 



autc 155 



;failed to frame, indicate to the framit' or autosmpl routine to try again 

: bset ' #8,y:<inpstat 
_autd_160. .-' 

/!! !.3EN: perform old ssirec auto sampling on current frame 



jset 
jset 
jmp' 



#0,y:<inpstat,_auto_90 , -framing found 

#8 ( y:<inpstat,_auto3l00 /conclusion has been as not framed 
_auto_80. . /continue waiting for result 



auto 90 



; we have successfully framed the correct number of frames in a' row 
; and therefore we found' our sampling rate. 



/ ! ! !BEN enddo 
bset 

-. . clr 
■ - • • move ' . 
rts • 

auto 100 



.-end. 3NUMSAMPLRATES loop. . 
#AUT0SAME>LEPROCESS,.y:<process ; indicate auto sampling done 
a. .. . .-indicate success to caller 

y: linear, m4 " '/restore as a linear buffer 

/return with sample rate found 



/ ! ! ! BEN • 

;//we did not frame at that . last sample. rate, try. the 'next one 

/; /turn off the interrupt, system - 

ori . *S03.mr' 
// ■ ' nop. ■ ■ 

/ ; nop - ".""*'■' 

//'".. nop . *'>'■■'" 

. nop -:-•*■• *\. • _ • .- . 

;/ • . nop. 

- move- 
; / move 



x:srchtries,xO 

...r3,x0. 



/number of tries at sample rate 
./number of tries at sample rate 
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move #>MAX_AUTO_TRIES,a ; get tolerance ctr' "'" " 

cmp x0,a - ;see if time to try next sarnple "a-e 

jgt _auto_70 ; not yet make another try 

;see if the pass looking for frames with privacy bit not set ■ 

move . #privacybit,r3 ;addr of privacy bit flag • 

■ no P 

jset #0.y;.(ri)._auto_l08 ,-if tried privacy, check protection " 

;now try looking for a frame header with the privacy, bit set 

move #syncptrh,r3 ;modify table. of syn patterns 

.bset 30,y:privacybit . ; indicate .privacy bit set 

;for the number sync patterns set the privacy bit set 

, do* y:<synccnt, auto' 102 

bset. #0, y:.(r3) + - ~, 

_auto_102 

.•restart the attempt counter for the new sync patterns . 

■ . move " 80, r3 

move. rO,x:srchtries ;zero the failure counter 

jmp . _auto^70 . ;now make tries with privacy bit- set 

_auto_i08 • . . • 

;see if the pass looking for frames without CRC protection was done 
;-. if so, try next sampling rate 

jset . : #0,y:<protect, _auto_800 ; if no CRC done, try. next sampling rate 

;now try looking for a frame header without the CRC protection 

move . #syncptm,r3 . . ;modify table of . syn patterns 

bset . #0,y:<protect . ;indicate NO CRC protection 

bclr #0,y:privacybit , ;reset try with privacy bit, set tc.C. 

; for the number sync patterns set the NO protection bit 

do- , y : <synccnt;_auto_il6 
. bset . #8,y: (r3) . . " . ' ;set the protect bit 
bclr , . #0,y:(r3)+ .... ;clear the privacy. bit 

^autb_110 

; restart the attempt counter for the new sync patterns . .. 

. move #0,r3. "\ - 1 " 

move • rO,x:srchtries ;zero the failure counter 

jmp _auto_70 ;now make tries without CRC bit 

;.7/i2/94: added label to. skip to next sampling rate if not applicable 

_auto_800 ; : "* \ ■ ' 

;this sampling rate did not match,-. try the next table entry \ 
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I3EN 



move 
move 
nop 
move 



y :<svereg,rO 
JtAUTOBYSAMPLE.nO 



/restore sample table address ' 
/set auto sample offset to next rate 



(r0)+n0 k ; /advance to next sample- rate 

! !BEN: increment the current sample rate table index to, try. next sample rate 



. bclr 
move 
move 
* add 

'.' cmp. ' -. 

•- v : ,'jlt.- ; 

_auto_900 

;we failed tc 

: bset* 
-. - .move . 
. move 
. rts - : . 



#AUTONEXTFRAME,y:<process • ; to start next sample rate entry 

x:srchrate,b* ,* to' increment table. entry 

#>l,xC * - /increment 

x0,b # >NUMSAMPLERATES . xO . /increment search index " . 

./ & get max table, entries count. 
x0,b b,x:srchrate see ' if table . totally searched 

. . ; i in case, save new search index 
. auto AA /if less than max, try new tables entry 



determine the sampling rate, . indicate failure to caller 

fcAUTOSAMPLEPROCESS , y : < process / indicate auto sampling done 
#>-l,'a /indicates failure 

y: linear, ra4 /restore as a linear buffer 

/return, to caller. 
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.;(ci 1991. Copyright Corporate Computer Systems, Ir>c v Ail rights reserved.' 
; ? \URDCDSYN\getancda.asn: BEN y:<iinear", "y : f rmemod (inpsize) . 

; This, routine decodes the ancillary data "bytes . for output . to rs232 i/f. 

.; on entry <'"'}• 
■r6 « current offset in output array '■ 
; : . y:dataiptr -address in data byte input buffer to start from 

. .* y:bytecnt - count of bytes in input buffer .not yet transmitted 

on ■ exit-' ■ ' - ." " 

" ; " a ■ destroyed • 

- . ; '- .bo destroyed _ ■ 

. yO. - destroyed. / • -.*'.'.•' 

" yl destroyed 
rO » destroyed 
' rl - destroyed: ." % ■' . 

.. r2 - destroyed 
; '"< r3.« destroyed \ 
; ' r4 ■ destroyed ' " 

-\ n4 » destroyed 

include 'def. asm' 
./.include ' . . \ common \ioequ. asm' 

■include ' box_ctl .asm' -.- .- 

section bytebuffer . 
xdef databytes ■■' 

V • 'brg - yii : 

stgetancda_yli 

databytes . ds DATABUFLEN ; buffer for bytes received 

endge t ancda_ y 1 i 
endsec 

•• -. section highmisc " 



. xdef- • anctype 

xdef baudrte ;data baud rate code from switches 

xdef. : dataiptr 
■ ' xdef • dataoptr 
■xdef bytecnt 
xdef • maxbytes '"• : 
. - .xdef-" • saveaO • • , \- : 

'xdef saveal .. 
. xdef. : ■ savea2 - . 

-• xdef • ,-• padbytes". ■.. t . ' ■ 

org ' yhe: 

stgetancda_yhe ■- ; 

ahctype . ds 1 : - ;type of count field after audio data:; 

■ *. ... - 0 - .3 bit padded byte count 
; • ' 1 « .3 bit data byte count - :\ 
baudrte . . • ds 1 ;data baud rate code from switches 

dataiptr ds ' . 1 v ;ptr for. next byte decoded f rom. frame • 
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dataoptr ■ ... ds 

bytecr.c . da . 

maxbytes . ds 

saveaO ds 

saveal - ds ; 

save a 2 ds 

padbytes ds 

endgetancda_yhe \ 
endsec 



1 ■ . • ;ptr for next byte to transmitted to rs232 

1 . . .-count of bytes yet to be output to rs222 

.1 : ; tolerance check of byt cent for scixmt 

1 " ";save reg ao for scixmt 
1 ; save, reg al for scixmt 

1' • ,-save reg a2 for scixmt. *.*..' 
I . ;hcld pad bytes from the frame 



org . . phe: ' . • './."." 

getar.cdata '•. V... 

; clear the ancillary data problem for old CCS frames 

bclr ■ #2.y:oldccs -V.-. 

.•set address of type of count to extract: 

; . padded bits byte count OR data byte- count ■ ' 

move #anctype.r4 addr of type of . count field 

; do hot decode ancillary data from a reused saved frame 

3set . #USE_SAVED.y:.<ctlf lgs,_ancd_90;; ; if not reused, continue 
;see if data byte count, and if so, read. byte count and then bytes 

jset #0.y : (r4) ,_ancd_78 . ;if byte count, get data byte count 
; set the end of the MUSICAM portion of the full frame values 



move y : f rendwd, rO 

move. . y:frendbt.nO 
move y :'f rmemod.raO 
move raC , ml 
move ft > - 1 , xO 
move • xO , y : padbytes 



; normal MUSICAM frame last word address 
; normal' MUSICAM frame last. bit effset 
;set circular buff - to addj addr 
;ser circular buff to addj addr 
;mit the pad bytes value* 



; ;test if room remaining, in the frame to read the CCS ancillary data pad 
byte count 

move . rO.rl .' ' ;get addr' of last' word ' into proper reg ■■ 

move."; r6, a .". " ,;to test next addr to decode " 

move " r (xl» • ;tq."see if last word- being decoded 

• move rl,xO ■ ■ ;to test last frame word, address • 

.crap x0,a ft >BITSFORPADD ING , xl ; see if about to decode last 

■ ;. 4. set. numb tits in pad byte cnt 
\jne ."■ : _ancd_0C ■ t ; if. net, test room from curr decode* word 

.-decoding of the last word in the frame is in progress. . 

; see- if. sufficient bits remain to get the padded byte count 



move 
move 
sub. 

r.eo ' 



ft>24.b • 
y:<sc,x0 
xO.k . nO.xO 



;get bits per word 

;;get unde coded bits count in last- word 
;calc bits decoded from last word so far 
; & get total bits in that last word ■ 
;maice bits already decodes negative 
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add 

•■ cmp 
: : :dbg pit 

:ge . 

nop; 
nop 
nop 
nop. 
nop 
: jmp 

an cd 00 



xZ.b 
xl,b 

ancd 6 5 
~ancd~05 



ancd 85 



;add total bits in last word 

.see if enough bits remain ' 

.if not it.'s net CCS, no ancillary data 

; if sc. do ancillary data 



; if not it ■ s not ' CCS, no ancillary data 



; tes 



c • the next to last 



word address to. test remaining bits 



offset to-' last 



. move 
: move 
; cmp 

ine •• ' 



;ri) - 
rl.xC 
x0,a 
ancd 



05 



;back up to next tc last word addr.. 
;tc test next to last vs next addr 
;see if next is next tc last "• 
; if not at next to last, dc ancillary 



; see'. - if remaining bits 
: plus the number of 



move 
move 

. - add " 
/ cmp ■ 
tdbg jit . 

. jge 
nop 

• nop 
nop 

. nop 
= nop 
3 mp 



y:<sc, 
nO ,x0 
xO.b 
xl.b 
. ._ancd_ 
"ancd" 



in current t next to last) word being decoded 
bits in the last word have enough bits for pad byte cn t 

b : ; get undecoded bit cnt curr decode word 

;get total bitsin that last word 
; add total bits to remaining bits cnt 
/ ;S ee if enough bits left in the frame:. 
85 ' ; if not, it's not CCS no ancillary .data 

05 ; if sc. do ancillary data 



ancd 85 



•if net, it's not CCS no ancillary data 



_ancd_05 • - 

,• get the count, of pad audio bytes from the frame 



move 

move 

move 

jsr 

move 

and 



tneve 
move 
tst • 



#masktbl,r2 

it BITS FOR? ADD I NG, n4 

n4,n2 

getvalue 

y: (r2*n2> ,xl 

xl.a - n0,x0 ■ .; 



al'«a ■*■ • 

a,y:padbytes 

a y ;dataiptr,r5 



ancd 4 0 



; nutnb bits in pad byte count 
; oet hi order bit masx index 
'.get pad byte count from frame. 
' ImasK off high order. one's ... 
;mask'off high order one's 
; & set end of .frame bit offset 

; clean up for a zero test 
save the . retrieved pad byte count 
.test if any pad bytes included 
• k set addr of next byte to be s: 
■no pad bytes in frame, go decode 



ored- 
data 



adjust end c* frame for padded' bytes (8 fairs per byte: 



move . 
move : 
mpy. 



$>8,xl 
al.yl . 

xl.yl.a #>24.xl 



;set up bits in a data byte 
,-get count of pad bytes . 
;mult by 8 bits per byte . 
; & set bits, per word 
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asr 

move 

_ancd_10 . 
• ~- crap 

.: jit 

move 
ctnp. 

; ! i !dbg jeq 
jne- 
nop 
. nop 
nop 

... no P 
hop 
jmp " 



a 

a0 f a" 



ancd 15 



sub 
jmp 



xl . a 

_ancd_20 
rO,yO~ 
y0,b ! 
_ ancd_89. 
""ancd""! 5 



_ancd_B9 . 

xl.a (r0)- 
ancd 10 



_ancd_20 ... / 

.-now back off the number of. bits 



cmp . 

"jle 

move 

cmp 

! !dbg jeq 

jne . 
. nop 
nop 
nop - 
nop., 
nop 
jmp 



x0, a 



xO.b 



_ancd 30 
r6,b " ■ 
y0,b ; x0,b 

_ancd_6 9 
~ancd~25 



ancd 89 



ancd 25 



add 



xl,:b 



(rO). 



ancd 30 



; a. igr. integer result 

; & get next decoded word addr 

;shif t integer result 



;if a full word of padding remains 
;if not, go adjust the bit offset 
;to see if at next decode word 
;see, if next to decode . reached 
; if so, no data to decode 
;if not., keep checking 



so , no data to decode 



;siib full 24 bits, 

; Sl back off one word in end address 
; try again . . 



,*offset vs rest of pad bits 
; & offset to b reg for adjustment 
; if less or equal, don't adjust 
;get next decoded word addr, 
;see. if next to decode reached 
; & offset to b reg for adjustment 
;if so.no data to decode 
.;if not.- data to. decode 



;if so. no data to decode 



; adjust offset by bits for full word 
; Si back off one more word address. 



.-adjust the bit. offset by the remaining pad bits 



move 

sub 

move 



a, xO. 
xO,b 

b. nO 



;get the remaining pad bits : 

/calculate new bit offset. 

;save approx end of anc data offset 



_ancd_40 ■" , 

; now get the bytes and store in the buffer for the trasmit interrupt 



move: * jfDATABUFLEN-l ;m5 ; 
move *BITSPERBYTE,n4 
move n4 , n2 : i- : ■" . 



;circular buffer 

,- number of bits to decode from frame 
; get hi. order bit mask index 



SUBSTITUTE SHEET (RULE 26) 



WO 96/32305 



PCT/US96/04835 



-143- 



#Cr3 



■; this is the decoded byte counter 



ancd 50 



,-as long as there" is room for a byte to be decoded, do i: 



;curr next frame' word address - 
* ;set up bits in a data byte- 
: ..-next frame word addr - 1 » curr addr". 
.get frame end word addr 
.-get end bit offset in frame end word . 
. ;to compare curr frame word to end addr 
. ,-is curr frame word equal end frame word 
fc.get bit offset into curr frame word 
;if not end frame word, try next to last 

rsince we've decoded 'into' the last word in the .frame, 

; subtract remaining bit in curr word from 24 to determine how. many have.. 

been decoded-- - - : ■ " . 

subtract the used, bits from the last word bits available 



move 


' rS.rl 


move • 


<i>b:tsperbyte.xi ... 


move 


' (rl) - • 


move. / 


r0,a 


move 


n0;y0. 


move 


rl.xO 


crap 


xO.a y:<sc,b 


jne 


_ancd_60. 



move 
sub 

sub 
imp 



#>24.a 

b,a y0,b 

a.b 

ancd 70 



,-bits per word to be sub from : 
,* subtract y:<sc from 24 to get usee cnt 
; & get last word bits available 
;sub used bit cnt from bits abvalabl'e 
.see if another byte can be decoded 



_ancd_60.\-' 

.•since we have not reached the last frame word, we must see if we're at 
• the next to last frame, and if not, keep decoding ancillary data bytes 



move 

nop . 

move 

move 

cmp 

jne 



rO.rl 

frl>- 
rl,a 
xO , a 
ancd 75 



;end frame word address 
;this pains me '.' \ 

;bac)c up to next' to last addr . 
; for comparison 

;is curr frame word * end - 1 frame wor 
,-if not, decode the next data byte 



;we have reached the next to last frame word, \_ 

; add bits from the last frame word to those remaining in this byte 

• • * there is a byte's. worth of bits, decode .another ancillary data byte 



add 



ancd 70 



cmp 
jit 



y0,b 



• xl . b . 
ancd SO 



;-add number of bits ir. last word. 



-;see if a byte fits is the bits left 
.no more bytes, gc update byte count 



_ancd_75 ■ • - 
.•there is room for another byte, let:s get it 



jsr ■ ■ getvalue 
move y: :r2*n2) »xi 
■ and ' l *xi,a ,-. (r3) « 



rretreive the next- byte from the frame 
; mas)c of f high order one's .. 
;mas<- of f high order pr.e;s. ' 
;. i.incr byte counter 



rinsert the byte ' into' the. transmit buff er 
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move - .■ al,y:(r5J* . ; put the byte, out' 

;test to see that did not exceed baud rate byte count 

■"■ move ■ r3.y0 .; count of data bytes just decoded 
move y:maxbytes, a . ;maxbytes tolerance decoded check'. ' * 

cmp y0,a. ;check for frame alignment error-'-.. 

'■ jit ;■ _aucd_85 ;skip if too many bytes decoded . 

jmp ~ancd~50 -;see if there is room for another . 

_ancd_78 -V *' . - *' 

;get the. count of ancillary data bytes, in the frame . 

. move . \#BITSPERBYTE, n4 ;bits in the ancillary data byte . count 

. move " #masktbl,r2 .;. ;set.addr of the. masking table- 

move n4,ri2 ; get hi order bit mask index 

jsr - getvalue. ; ;get pad byte count from frame 

move* y : (r2+n2i ;xl ;get mask off high order one's 

and xl,a #0,r3 . '; mask, off high order one's 

. ; & zero decoded byte counter 
move al.a . : ; clean up for a zero test 

tst a y :dataiptr, r5 . ;test if any data bytes included.. 

; & set addr of next . byte to .be stored 
. jeq _ancd_90 ; no data bytes in frame, we're dene . 

;make sure the data byte count is valid vs the max bytes, at, this baud. race : 

, ^ move y : maxbytes , xO : ;get max bytes ® baud rate 

cmp xO.a ;comp byte count from" frame to max. 

. jgt _ancd_85 ;if. number is too big, skip data 

";now get the bytes. and store in the buffer for the trasmit interrupt. 

move .. #DATABUFLEN- 1 , raS . ,.; set circular buffer 

;get the count of ancillary data bytes in the frame. 

; bytes are stored in the reverse order received by encoder. 

do a, _ancd_80 

; get the : next ancillary data byte 

jsr getvalue ' "*■- -retreive the next, byte from! the "frame 

move y:(r2*n2).xl ,"■ ;mask off high order one' s 

and ... xl.a (r3>*. . ; mask of f high order one' s 

• & incr byte counter "■• 

; insert the byte .into the transmit buffer ' ■ ■ 

• move : \ al.y; (r5) . : : ,;put . the byte out-/ : ' 

_ancd_80 -' 

temporarily' disable. the interrupt for data received 

' bclr , >MJTIE,x:<<M_SCR " 

'../''nop." . ."' ~".\\ 

- • nop.;- ..' - *... ' ■ -'; - ■■' 
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■ ■. nop * '..■'.•* ".. " :" ; 

; while wa icing for interrupt to take effect: 

maice a tolerance check of the frame's alignment to make sure 

we haven't decoded more data bytes than is -.possible 
■ if we have decoded too many bytes, 

.skip. the junk. just, decoded by ignoring the results cf this frame 

move r3,y0 . . ; count *cf data bytes ;j us t decoded' 

move y:maxbytes.a ;maxbytes tolerance decoded check... 

• crap : y0,a y:bytecnt,a . ;check for frame alignment error 

; k get latest byte cnt of unsent bytes 
jit- \ _ancd_85 . ;skip if too many bytes decoded : 

.•interrupt should now be disabled and we car. .safely update count .of unser.t bytes 

add . y0,a r5, y :dataiptr . ; add count of bytes just' framed 

4 save addr : of next byte next frame . 
move a,y:bytecnt - ; save hew unsent byte cour.t." .. 

■■ jmp ... _ancd_89 ;reset interrupt 

_ancd_85 - . . -. • • — 

; a problem decoding ancillary data may indicate, a stream; of frames from. 

some . other manufacturer 
or . ■ ; 

if the frames are from a CCS encoder that is encoding old CCS CDC200C 
\ two-channel frames at a low bit rate that, is incorrectly using : 

\ the wrong allowed table BUT, has an old CCS CRC-16 checksum 

;!:!dbg 

nop 

■ nop ' . ; 

nop ' ' 
. nop ; 
/ • nop 
; :dbg 

jset #CRC OLD vs NEW , y : < c 1 1 f Igs , _.ancd_8 9 ; if ZSC CRC, continue 

idbg .; '-. •'" ■ ~ •. - 

nop - . • 

' nop ' ■■■ ■ * : 

nop - . '\ ■ \ 

nop 

nop ' ■ . • 
; : : !dbc " *-':".•■' 

bset #2,y:oldccs ; show problem to. switch to ola CCS 

' _ancd_6 9 _ 
/turn the transmit byte interrupt- back on . 

• bset — #M_TIE.x:<<M_SCR • ' ' .-enable- transmit interrupt y 

rreturn after all bytes decoded and counted' 

y:linear.mO . - ' ;uncircular buffer 



move. 

move . . mO . ml 



■ move 
ar.cd'90; 



;uncircular buffer 
moiml • ;;uncircu_lar' buffer 
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op: 



;.{ci 1991. Copyright Corporate Computer Systems, Inc All rights reserved. 

. ; \TODCDSYN\getbal .asm: BEN y:<frmtype y:<si'bound ; 

title . "Get bit allocations^ '•'•'''/ 

; This routine is used to get the . bit allocations 1 of each of the sub-bands. 

.; It is from the ISO standard.-. 

. ; sub-band 0 10 use 4 bits (11 * 4 - 44. bits) 

; sub -band 11 - 22 use 3 bits -(12 * 3 - 36 bits) 

; sub-band 23 - 26 use 2 bits 4 * 2 - 9 bits) 

: ;. ."••"( total » .88 bits). 

"; on entry - - .. • • *.'-' ■ 

rO ■ address of bit allocation array for. both left and right channe 

r6 - 'current offset in the input- array; ■ 

; n€ * base address of the input array 

y:<maxsubs - MAX SUB BANDS at sampling rate and bit rate 

y:sc =» shift count of current input word \ ' * 

; y:frmtype full stereo, joint stereo or mono 

y.-sibound o joint stereo sub -band intensity bound 
x:crcbits = accumulator of bits covered by CRC- 16 routine • 

;. . (bit allocation bits are accumulated) 

; on exit ■ . . . / '" 



x€ • updated 
. y:sc » updated 

a * destroyed 
b • destroyed 
xO » destroyed 
xl - destroyed 
yO « . destroyed . 
yl » destroyed 
rO ■ destroyed 
rl * destroyed 
r2 » destroyed 
r4 » destroyed 
. n4 - destroyed — 

'include 'def.asm' 

section highmisc 
xdef .' masktbl 
.xdef tbl 



org 

stgetbal_yhe. 



masktbl 



dc 
dc 

.dc 
dc 
cc 
dc 



yhe : 



$000000 
'SO'OOCOl 
S000C03 ' 
S000007 

sooooof 
•sooooif 



if place holder . in mask table 
;mask table- for 1 bit getvalue 



; mask table for. 2 
;mask table for 3 
'.•mask table for. 4 
;mask table fcr 5 



bit. getvalue 
bit getvalue 
bit getvalue 
bit getvalue 
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■ QC ' 

■ dc' 
dc 
dc 
dc 
dc 
dc ' - 

. dc : 

dc 

• dc 
dc - 
dc • 
dc : 
dc- 

. dc 
dc 
dc 

. dc - 

. dc 



S0OO03f 
S00007f 
SOOOOff 
SOOOlff 
S0003f£ 
$0007f f 
SOOOfff 
SOOlfff 
$003fff 
$007fff 
' $00ffff 
$0lffff ■ 
S03ffff .. 
$07ffff 
$0f f f f f 
Slfffff - 
$3fffff 
$7fffff 
Sffffff 



;{&asK 
/mask 
;mask 
/mask 
/mask 
/mask 
; mask 
/mask 
;mask 
/mask 
/mask 
; mask 
/mask 
; mask 
;mask 
;mask 
.-mask 
/mask 
/mask 



cable 

cable 

cable 

cable 

cable 

cable 

cable 

cable 

cable 

cable 

cable 

cable 

cable 

cable 

table 

cable 

cable 

cable 

cable 



for s bic 
for 7 bic 
for 8 bic 
for 9 bic 
for 10 bic 
for 11 bit 
for 12 bic 
for 13 bic 
for 14 bit 
for 15 bit 
for 16 bic 
for 17 bic 
for 18 bit 
for 19 bic 
for 20 bit 
for 21 bic 
for 22. bit 
for 23 bic 
for 24 bic 



gecvalue 
gee value 
gecvalue 
gecvalue 
gecvalue. 
gecvalue 
gecvalue 
gecvalue 
getvalue . 
gecvalue 
getvalue 
gecvalue 
getvalue. 
gecvalue 
gecvalue 
gecvalue 
gecvalue 
gecvalue 
gecvalue 



/define daca si2e cable for che gecvalue roucine to extract daca 



cbl 

dc 
dc 

• dc ' •. ■ 
dc: - -. 
■ dc'. •■■ 
dc-. 

. dc 
dc 

dc . 
dc 

: dc - 
"dc- ' 

• "dc 

• dc • 
dc 

. dc ' 
. dc 

dc 
-dc 

dc ■ 

■dc . 

dc . 

dc 
v" :dc • 

dc \ 

endgetbal_yhe 
endsec 



$000000 
SO00OO1 
$000002 
$000004 
$000008 
$000010 
$000020 
$000040 
, $000080 
$000100 
$000200 ; 
$000400 
$000800 
$001000 
$002000 
$004000 
$008000 
S010000 
$020000 
$040000 
$080000 
$100000- 
S200000 
S400000 
$800000 



/bits < 
;shifc 
;shifc 
; shift 
; shift 
;shifc 
;shif c 
/shif c 
; shift 
/shift 
/shift 
/shift 
; shift 
; shift 
;shif c 
/shift 
; shift 
; shift 
/shift 
/shift 
/shift 
;shif c 
/shift 
; shift 
;shifc 



■ o, 

left 
left 
left 
left 
left 
left 
lefc. 
left- 
left- 
left, 
left- 
left 
lefc 
lefc 
lefc 
lefc 
left 
lefc 
lefc 
lefc 
lefc 
lefc 
left 
lefc 



place holder 
01 bics 
02. bics . 

03 bits 

04 bits 

05 bics 

06 bics 

07 bics . 

08 bics ■ 

09 bics . 

10 bits ■ 

11 bics "." 

12 bics , 

13 bics 

14 bics 

15 bics 

16 bics 

17 bics 

18 bics 

19 bics 

20 bics 

21 bics 

22 bics \ 

23 bics 

24 bics 



seccion highmisc 
xdef skftbl 
xdef skfcbl l 
xdef skfcbl~2 
xdef skf tbl~3 



org ' 

scgecfaal^xhe- 



.'xhe: ' 
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.-address of BAL' s bit cable as per Allowed table selected • 

skftbi- da: 1 . " : " '*• \ ■ 

; These tables is the number of bits .used, by the scale factor in each sub -band 

; .High sampling rates with higher bit rate framing : 

'skftbi i • ■ . ^; 

- . ; sub-band 0 , 

■ ; sub-band l . 
; sub-band 2 . 

. ' ■ ;sub-band 3. 

■ ; sub-band; 4 ■. 
; sub -band 5 . \ . , 
; sub-band. 6 *.*' 
; sub -band 7 ' 
,-sub-band 8'." v 

• ; sub-band 9 
,* sub-band 10 

; sub-band 11 

■ "■ ; sub-band 12 , 
; ; sub-band 13 

. . . ; sub -band 14 ; . 
; sub- band 15 . 

; sub -band 16'. ,\" 
; sub-band .17 * 

■ ;sub-band 18' 
; sub-band 19 
; sub -band 20'. •' 

.' ; sub-band 21 . - 
. -sub-band 22 

; sub-band. 23 
.; sub- band 24 
; sub-band. 25 . 
; sub-band. 26 

; sub-band 27 . . 
; sub-band 28 .. .- 
; sub -band 29 

. ; sub-band 30 
- .; ; sub-band 31 [ 

..•High sampling rates with lower bit rate framing 

skftbl_2 .'■ • . . . n •■ •■ ' . 

. dc 4' ; sub -band 0 

..dc- 4 • ; sub-band 1 - 

dc 3 - ; sub-band 2 

dc 3 ; sub-band 3 



" dc . 




4 


dc. 




4 


- dc. 




■ 4 


/ dc- 




4 


dc 




4 


. dc 




4 


dc 




. 4 


. dc 




4: 


■dc 




4 


dc 




4 


dc 




4 


dc 




3 


dc 




3 


dc 




3 


. dc 




3 


dc 




3 


dc 




3 


dc 




3 


.. dc 




.'3 , 


dc 




3 


dc 




3 


dC: 




3 


V dc 




3 


dc 




2 


dc 




2 


dc. 




2. 


dc 




2 


table 


3-B. 


2a 


dc 




. 2 


dc 




2 


dc 




2 


table 


3-B, 


.2b 


: dC 




2 


' dc 




' 2 



dc 3 ; sub-band 4 

dc • • 3 •; sub-band 5. 

a c ■ 3 ; sub -band 6 

d C 3 ■ ; sub- band 7 
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; end 


cable 3 -B . 


. 2c 




- * dc 


• 3 




dc '•" 


3 




dc 


3 




... dc 


3 


* end 


cable 3-B. 


.2d 




dc 


3 




dc 


3 




dc 


3 




dc 


3 




■dc. • • 


3 




dc 


\'-3 




dc . 


3 




dc 


'3' 




' dc ' • 


3 




• dc 


3 




: dc 


3 




.dc 


3 




.dc 


3 




dc 


. ,.3 




dc 


3 




. dc' -' 


3 




• ■ dc-". 


: 3. 




dc . 


3 




• dc : 


3 




dc 


3 



Low .sampling races 
sicf cbl 3 ;." 



~ dc ' 


.- 4 


-. dc 


• -.4 


dc 


4 


dc- 


4 . 


dc 


3 


dc 


• V3 ' 


dc . 


-3 


dc 


". '3 


dc \ 


3 


dc. ,. 


3 


dc : 


• 3-. 


dc 


2 


dc'-; 


2 


dc • 


2 


. dc 


■:2- 


. dc ... 


2 


dc 


2 


dc 


2 


dc 


2 


dc**, 


: 2 


dc : 


. 2 


dc 


2 


dc 


2 


dc 


2 


dc 


'-• 2 


" dc 


2 


dc • 


2 


' dc 


2 
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; sub-band 8 
. ; sub-band 9 
; sub -band 10 
'; sub-band 11" , 

. ; sub-band 12 
: ; sub -band 13 ... ' 
; sub-band 14 

.; sub-band 15: ; 
; sub -band 16 
; sub -band 17 
; sub-band 18 
; sub-band 19 
; sub -band 20 
;sub-band 21 

/; ; ;sub-band 22 
; sub -band 23 
; sub-band 24 
> sub-band 25. 

' ... ;sub-band 26 = -.. 
; sub-band 27 
". ; sub-band 28 
; sub- band 29 
; sub-band 30 - : 
; sub-band .31 



; sub- band 0.. 

• sub-band 1 

; sub -band 2 \ ' 

; sub-band 3 . 

; sub -band 4 
.. ; sub-band 5.. 
. •; sub -band 6 

; sub-band 7 / 
; ; ; sub-band 8 • 

; sub-band 9 
. .; sub-band. 10 

. ; sub-band .11 " . 
; sub -band 12 \ 
; sub-band 13 
- ; sub -band 14~ 
; sub -band 15 
? sub-band 16- . 
; sub-band 17 ; . ' 
; sub-band 18; \ 
; sub -band 19..". 
- ; sub-band 20 
; sub-band 21- 
; sub -band 22. 
; sub-band 23 . 
; sub-band 24 
• - ' ; sub-band- 25 '■ 
; sub -band 26 .= 
■'; sub-band :27 . 
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dc 
dc 

;er.d cable 3-B. 
• dc 

- . < dc ' 



; sub-band - 28 
; sub-band 29 

; sub- band 30 
; sub- band 31 



endgetbal_xhe . 
. endsec - 

. org 



phe: 



* *V. rl with start of • subband. allocation table of bits in frame per sub-band 
b'r.3 offset fcr right channel sub-band bit allocation values: 
left channel from, e to (NUMSUB BANDS - 1) 

riaht channel froir. NUMSUB BANDS to ( (2 ♦ NUMSUBBANDSi - 1) . 
•c ~3 sec with joint stereo sub-band boundary for stereo intensity: 
* 4 (4-31J. 8 {8-31'. 12 (12-31) or. 16- 116-31). . . 



getba: 



move -..*. xrskftbl.rl 
move"; ftmasktbl,r2 
move - ANUMSX7BBANDS . nO 
move . y : s ibound . r 3 .. 
move , x:crcbits, rS 



;cf fset for- right channel. 

;decr stereo intens sub - band ctr 

;get CRC-16 bit counter . 



; loop 
;bit 
a. 



through the sub-bands extracting the left and right; (if applicable) 
allocation index values (y:<maxsubs ■fixed count of sub-bands framed): 
for current sub-band get the number of bits for allocation index value ,. 
and increment . address of the next sub -band bit count; . 
get the bit allocation for the left channel always 

b register isolate the type of frame: full stereo, joint stereo or mono 
yQ holds the mono frame type code for testing 
yl holds the joint stereo frame type code for testing 
see if the frame type is joint stereo and just in case, move the 
current stereo intensity sub-band boundary counter value for testing - 
if not joint stereo, see' if this is a mono frame type 
' if it is :oint stereo: " 
' . test if the boundary counter has reached zero, and just., in case it has. 

restore the left channel bit allocation value to the al register 
2 if the counter is zero, go to copy left channel into the right channel 
3* if not. go to extract the full stereo right channel allocation value 



dp y:<maxsub8,_getb_40 

move. x: (rl)*.n4 ~ 

move n4,n2 . 

move n4 ,n5 . 

jsr .-. . getvalue 

move . y : <r2*n2) ,xl 

move (r5)+n5 . 

and . . -xl. a. : y: f rmcype.b 

move al.xV(rO) . 

move.- ' #>MON0,y0 

move #>JOINT_STER£0,yl 

cmp yl.b • ' r3 .a 

jne ' getb_10 . 

tst- : ' 'a " x:(rO),al. 

. move : -Tr3 ) ; ■ • v . 



.;get # of bits- to read ./ • - 
.get hi order bit mask index 
•to accumulate CRC-16 bits 
; get a left chan bit allocation 
;mask for. high order one's ■ 
;accum bits for CRC-16 rtn 
;mask off high order one's '.; 
; & set for- frame type compare 
';set left .channel - 
;ck for no right channel 
;cx for i nt ens i ty. sub- band : 
;check for stereo intensity . 
•;if hot. see if * morie " 
; reached bound . restore left va 
;yes, left val to right. val 
;nc. deer m tens, sub- band cntr 
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aetb 2" 



;test fcr a mono type of . frame and jus. in- case it is, set a 
; for insertion into the right channel for consistency 
;if. it is mono, go to move the right- channel value 
•'otherwise, fall through to full stereo 



and ret reive right char, value 
c zero' 



_getb_lO ■ 

cmp 
jeq 



y0,b . #0,al 
_getb_30. . 



. monc , 



insert G 



' ; full stereo- extract the right .channel bit allocation value 
lgetb_2C 



•«sr ■ " getvalue ■ 
move y: ir2+n2i.;xl. 
;.' move- ir5)+n5 
■ ' and ■ • xl. a ; 

■insert the right channel value (nO.cffsetv 
•increment fcrthe next sub-band 



_getb_3C 



wove 
move 



al,x: (r0*n0? 
CrO) * . 



;get a right chan bit allocation 
;mask for high, crdef one's 
;accum bits for CRC-16 rth . 
;mask off high order one's 



.•right channel sub-band allcc 
;incr fcr next sub-band . ■ 



"._ge'tb_40 , : ~. ' 

• Fill the unused sub-bands with 0 bit allocation 

• This allows getdata to process these sub- bands normally and insert 0 
; data in them. • 



clr . 
move 
sub 
dc 

move 
move 



_getb_50 



move 
rts 



a «>NUMSUBBANDS.b 

y t <maxsubs . xC 

xo.b 

b._getb_50. 
a.x: (rO+nO) 
a.x: (r0> * - 



r5,x:crcbits 



.•current MAXSUBBANDS 

; equals unused sub- bands 

; right channel 

,-left chan. & incr for next 



•store updated CRC-l€ bit counte: 
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opz f z , mex 

ic) 1995. Copyright Corporate Computer Systems'. Inc. All rights, reserved. 
\DGCST\rmicrmus.asm: with Reed Solomon decoding " - 

title 'Main' . ' ■ • 

"2"?/4/93:- nr.irrmus .asm version cf cdqIOCO MUSICAM (rdcdsyr.t .asm] for. mccrc 



•*«••••»•••••**•••***•**••• * * • * * * #•***#•*#*** * • » ♦ • 



06/26/91: . (dsb t lwh) 

NOTE: Never use ra4 to control a circular buffer.:. The interrupt routine, 
ssirec.asm has been sped up by using m4 and then restoring it 
to a linear buffer.. 



;.'This routine does it all for the decoder'.;.. 

"/include 'def.asm' . 
include '.. \ common \ioegu. asm* 
include ' box_ctl .asm'.. 

•section highmisc • >■ " 

• xdef SBndSKF. 

xdef ASMData ;set A cf.192 inverse quantized -ilir' 

'org xhe: 
strmicrc_xhe- ; 

SBndSKF ds ! . NUMSUBBANDS*NPERGROUP*2 .-left & right sub -band scale factors 

ASMData ds NUMSUBBANDS*NPERGR0UP*2 ;192 samples per 1 group of .3 samples 

for 32 .sub -bands from both char.ne 

■ endrmicro_xhe 
endsec 



section 


highmisc 


xdef 


chcksum 


xdef 


frmsize 


' xdef . 


frmemod . 


xdef 


frmhalf 


xdef 


f ramesz 


xdef 


oof . 


xdef 


voof 


xdef 


poof . 


xdef 


doof 


xdef 


IPwrdoff 


xdef * 


IPbitoff 


xdef 


wrdoff • 


- xdef 


bitoff 


xdef 


dcdf nnod 


xdef 


sveidbit, 


. xdef 


sverate 
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- xdef- 
xdef 
■ xdef- 
. " xdef 
xdef 
' xdef 
* xdef ". 
xdef 
" xdef - 
xdef . 
• xdef 
xdef- 
xdeff 
:. xdef 
xdef 
; xdef 

* * org • 
strmxcro_yhe ; 

chcksum ds 
f rmsxze ds- 
f rmemod ds 
frnihalf ds . 
frames z ds 
; successive i 

; oof 
; . vocf 
pocf 

dOOf ' 

oof ds 
vocf -ds . 
pcof ds 
doof ds . 
IPwrdoff . 
IPbitoff . 
wrdoff 
bitoff 
dcdfrmod . " 



svesmpi • .'„'." 
srrplcde' t 
bitrate . 
. xnpaddr . 

frmrate- • ' <- . / 

. smplrte ; : ]' 

iputcde' 
" smplidbit'. 
' • maxsubs_l • . ' ; . 

maxsubs_2 '. * 

oldccs ~ 

bxterrs '. 
.■*■ fade /;■: 
■; f adeem 

'. f rsr'ies '.,■.-'.'■-'-...'" 
samping. bier aces. baudclk/ 

yhe :'. • ■-..'."- -•■•'.*•". v' ' " : * 

.. -hold checksum from coded frame * 
t . ; number of words xn a frame 

' ' "•""inumfc words" in. 2 frames - l imod buffer: 

T . ..;i/2 words in framed buf (rdptr check:. 

. - T . ;sxze of framing input mod buffer ctl \ 

ramxng faults: 

- out-of -frame sync pattern faxlures ; : . • .•• » . 

. sample rate code faults (auto sample va frame header 
. CRC Drotection code faults (auto sample vs frame header) 

r^rillarv data errors coupled with old CCS CRC-16 algcrxthm 
.-ancillary data ^™4™? rMie f aults : - numb of oofs iO-NOOF) 

--.•number of voof s (O-NOOF) . - 

' -CRC protection faults: numb of poof's. fC-NOOF). 

ancil data with old CCS CRC-16: docf'S ( O-NOOF r 
x x -frame x/p word offset from start of buf fer 

I . -frame x/p bit offset from rasb . 
C ' ; frame decoding word offset from start cf-su-fe. 

0 ; frame -decoding bit offset- from msc. 

1 ; framebuf circ buf mod ctl * 



ds 
ds 
dc 
dc 
ds 



:hese are fcr auto 



detect as requested by switches 



.sveidbit' 
sverate . 
svesmpi 
smplcde; 
bxtrate 

inpaddr ds 
frmrate dc 



smplrte dc 
] iputcde dc ■ 
' smplxdtit .- 



maxsubs 1 



ds 
ds 
ds 
ds 
ds 



. iso sampling id bit from frame header: -:*ow/r.igh 
•ISO bit rate from frame header:, lo/hx .Kbxt rate 
• ISO sampling rate from frame header: low/hxgh - 
•ISO sampling rate from on select sws : low/high 
[•ISO borate from select sws: lo/hx Kbiv rate, 



0 
0 

dc 



;hold i/p buf addr .to -.restore 
;dxp switch U' bit) indicate 
; of 2 selectable bxt rates;- 
• bit rate sets numb words in 
0 -lower Kbit rate 
. 1 • higher Kbit rate 
,;i/p- PCM data sampling rate 



after 
whxe.^ 



save 



frame: 



; 0 - MUSCIMAM frames, 
; IS0 hdr id bit: •■ 

i • 32 or 4 9 
C '--16 cr '24 
;MAXSUBBAJOS if MONO 



X m Z122 data' i Zo- 
ic sampling rate. / 



K sampling 
frames ■ 



rate 
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maxsubs_2 


ds 


codecs " 


ds 


biterrs 


ds 


1 


fade 


ds 




f adecnt 


ds 




frtnes 


dc • 


. 0 - 



SAMPLE RATES 
BITRATES 
-BACTCLK ' 



• 155. 



;MAXSUBBANDS If 2 channel frames ; . 
;bit 0 • l to decode old CCS CTC1CC" 
. - 0 means MPEG-ISC frames " 
. '..-count successive bit errors 

~ : -'..;in case of fade volume output ctl 
, . . ;in case of fade volume output ctl 

/count framing to reboot If too many 

; table of sample rate variables 

.-table cf framing bit. rate variables 

;table of specified ancillary data rates 



endrmicr.o_yhe . 

endsec 



;The variables below are def ined in lowmisc in low. y memory and must be 
; below address; 40 to make use of short . addressing . 



:ocat 



section lowmisc 



xdef 
xdef 
xdef 
xdef 
xdef 
xdef 
xdef 
xdef 
xdef 
xdef 
xdef 



word_ou 
. f mi type 
si bound 
ctlflgs 
maxsubs 
protect 
Inpstat 
inpsize . 
temp 

olwptr , orwptr 
linear' 



word_in , not^appl 



org 

strmicrc_yl: 

word^out . 
word~in 
not_appl 
frmtype ds 



sibbund ds 
ctlflgs ds 



yn: 



ds 
ds 
ds 

1-.- 



,-appli 
;appli 
; satis 



.cable hardware outputs (leds. switches! 
cable hardware inputs (switches, lines; • 
fy non- applicable hardware settings, 
;from coded frame indicates: 
; .00 ■ (0) full stereo 

* OX • tl) joint stereo : 
10 m (2) dual channel 
; 11 • (3) mono (1 channel) 

.-intensity, subband boundary allcc addr 
.-control in dic ators in certain bits: ■ 
; bit. 0 • STEREO_vs_KONO: 
;■" . : 0"- stereo . 
; ■ ' ■ 1 • mono - 
; bit. 2 « joint .stereo or not 

0 ■ NOT joint 
; . 1- - joint stereo frame 

.-bits 6, 7 and 8 indicate protection 
;was a saved frame used 0»no, i«yes -. 
; bit 6 is overwritten when validating 

" . the .checksum after getsbitsV 
; ' -if C « checksum valid. . 
; use the. frame in • progress. 
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max sabs 


ds 


". 1 


protect 


ds . 


1 


inpstat 


ds 


1 


inpsize 


ds 


1 


temp 


ds 


1 


oiwptr 


ds 


- * 


orwptr 


ds . 


I* 


linear 


• ds 




endrmicro_yii 





;. and. save it when finished 

if 1 • checksum failed* ! 

use previous saved frame .. 

and bypass saving it when done 
.••bit 7 indicates if a saved frame. 
.; • has been stored: 
; 0 - no saved frame 

1 - yes a saved frame 
; bit 6 indicates, to. getvaiue this 

is a good frame to score: 
; . 0 « do not store in save area 

1 « do store in save area . 
; bit 16 indicates whether the frame; 
;. is coded with CRC protection, or not 

.0 - no CRC16 checksum 

1 « yes CRC16 checksum included 
.•-.bit 19 is for mono output only when 
; one channel is used for output and 
; . the- other . is to be muted 
(see bit 20) : 

0 • left channel for output 
; * . 1» right channel for output ;. 
; bit 20 is. for mono, output only and . 
; specifies if the mono. is. to output , 
; to one or both channels: . 
;V' .0 • both channels 

. 1 « one -channel only 
; . as defined by bit 19 

; working MAXSUB BANDS 
;flag for CRC checksum protection: 

bit 0: 0 » yes, 1 ■ no 
.state of data collection 
;used by ssirec to set mod buffer i/p. 
;use by ssixrate for temp storage . 
; output left write' pointer 
; output right write pointer 
";vaiue.-l to. reset regs to linear, buffs 



endsec . 



org 



phe: 



start 
;turr 



ihe. interrupt system 
#S03,mr ; ' 



on 

• nop ... • ** • . 

."'nop •'■ '.'.'/\.. ;\ - - - 

' \ - movep #$6001^x:«c<M_BCR • : . ;set all' external io wait states 
;set dsp56002 clock to .selected MHz (PLL Control Register) - 

"•'.*"' REECQDE_M_PCTL r ■ -.}.' '-' . '.'/''. 

. ;:init the debug port 



move ' 



<initdeb * '- 
.»S?2D9C6.a 



SUBSTITUTE SHEET (RULE 26> \^ ©W^HA" 



WO 96/32805 



PCTYUS9&04835 



■ .' ■ .. ' -157- .; ; ' - 

jsr ou:hex 

' "' jsr cC?;: "- ' ' V /"' '■'■v* • :■ • ' '*'.'•;■■ ' ' ' " ' 

initialize the volume, output fade control' ; .\; V • 

;FD. ' clrv •-' a - • ; \, "\ ■■ . , ;- .;. '. ; - , • ,\' \ ./ 

';FD--"v move a.y.fade .- : 
; FD move- a, y : f adecnt ■ 

; PORT C Assignments :.*',;' 

; s • ssi port ' . ■ ... 

; i « input port ■ 

; " c .- output, pert ■ • . ■ • ."• '■. -\/ 

'; .8 - 7 c 5 4 - 3.2 1 0.. 

.; s /s ss.-S: s is-s-;\.. . . • ■ 

:. rde^ODE PORT C M ?CC • /set C centre! : register for general ZZ 
Sic?DHoRr"M-?C2 ;. ;set the default outputs 
. r£cODE:?OR?:cX?CDDR ; .set C. register direction- . 

; initialize the ssi port . for - the input from the xraitter . ■ ' * 

RDECODE SSI M CRA , v ; set ssi era register 
RDECODElSSllKCRB / ;set ssi crb register 

; initialize the ssi port for tty 

RCECODE_SCI_K_SCR set sci status control register 

: - PORT 3 Assignments - . . 

. ;' i » input port 
; o - output pert \ 

; 14 13 12-- 11: 10 9 8 - 7 6 5 4 - 3 2 1 0- •'- 

; ■ o o o . - o o o o o i i i . 1 -l - ■ i ... . 

RDECODE PC>RT_B^_M PBC : • ; sec ^. CO j^° ^,5*^^^^^°^ ^ nC ' ra ^ ^ : 
snrrooc PORT B M PBD . ; set the default outputs 

' move > *>ON_LEDS.DC2;b : : " • flash the LEDS on 

" : CiTdAC lESET WOrd "° Ut ' ■ ' ; clear, the DAC reset -line to mute;, outp, 

ON LO SAMPLE RATE_LED_DCD • - ! : " ' ' ' - 

on"k:"sample_rate - lec_dc: : , . 

SET LEDS t)CD~' \ \ 

- .INTERRUPT HOSTJDCD:, -. " "■ * . 

; move. # >RDCDSVNT — STARTUP , a - . 

jsr; ,-<wai; . . / -' 

initialize the linear buffer value for mX ; - / : - , 

n -a .-reset- to a linear buff er . 

move .. #-l.mO _ ...::.>■'.■ 

' ; 'nove - mQ /y :< linear ■ 

autc seiecV tesc cabie cr ira^ lengths l «^?. r *?| Q * nd > 1C ra ' e/ . ' 
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cf -flag wcri " indicates sample 



rate: 



Low. 



laa wcr: 



indicates framing hit rate-. Z 



1 - Jr-igh 
low, . i * 



".igh 



;se: 



move- 


#autotbl.rO 


move 


Ittesttbl.rl 


move 


x; CrO) *,xC * 


move 


xO.x: (rl> * . 


move 


#>l,xO 


move/ 


" xO.x: (rl)*- 


. move - ; 


. x: trC.)~,xO 


move. 


xC.x: irl> 


move. 


#>3, x0 . . 


move 


• "xQ.x: (rl>* 


move . 


x": ;r0> + .x0 


move.. 


. xO.x: (rl>- 


move.- 


lO.xD 


move 


xO.x: trl) * 


move ■ 


x: IrOI + ,x0 


move 


xO.x: (rl) 


move 


*>2.x0 


move . 


XO.X: (rl) : 


art -up 


auto. selects 



bset #0,x:autcrate 
bset #0 . x: autocode, 
bset #0,x:autosmpr 



; table of selectable frame lengths 

; table to test from.. 

.-get 1st entry frame length 

/store smallest frame 

; indicate high sample /low bit rates 



;2nd smallest frame . . 

; indicate high sample/high bit " rates 

;2nd largest frame 

.-indicate low sample/low bit rates ■. 



; largest frame . 

; indicate low sample /high bit rates 



; with lower bit rate 
•as .MUSI CAM '. 

; at low sample. rate 24,000 



restart 



■ cis- dac_reset • 
:nterrupt_host_dcd . 

-urn off the' interrupt system 
"set the interrupt for host interrupts 
HOST set:? I?L 2. 

movep #>$080Q.x:<<M_IPR 
■" andi ' . #Sfc.mr 



; clear the DAC reset .line to mute output 



;set ir.t priorities and edges 
••turn on the ' interrupt system 



. ; • • ori #S03,rar. : . ; 
.♦disable the ancillary data transmit interrupt 
bclr #K_TIE.x:<<M_SCR- 

; c • • ' „„a v-inoBta- controls data collection from the outside 
; The input ^state word, . e verytime an input occurs, event is 

; intc the decoder. If bit 0 . ^ w?te pointer iy:1 npwptrr and no data is 
I. stored' 3- cVrn^ ?n|ut : write pointer ' 

; is incremented.- 

■ »>Q'T LEDS 'DCD.'b. " initialize; leds as off 

a - - - • -state of the input. buffer .. • 

a.y:<inpsta . . . ... CO ntrcl flags 

^y'notlalpl. . ' ' clear any ■ stubbed .flags; : 



clr 
move 
move 
. move 



alize 



the led output ..word and light initial leds 



SUBSTITUTE SHEET (RULE 28) 



WO 96/32805 



PCT/US96/0483S 



■ ; S v tu«M e 'li <t 5cD d - OUt - • l.d -fearer . . 

■ ?st^^a!arS RELAY BCD,. s«c_led_0 ; unless already set. . 
ISlALA5?LR^Y.OCn- . " ; , rset the alarm. relay ^ne. on 

_set_led_0_ ^ sam?L£ RATE_LED_DCD '. 

of?>iIsampleIrate_led_dcd , 

.3." ................... ■ 

.. 

J ra-- OWING DATA IS DECODED AND PUT INTO A HIGH MEMORY,. 
I^TbI C^lwffltS SdS DATA ALL THE TIME- WHILE THE FROG RAM 

! S T^MaL^^.t1!X™NONE OF A WORD IS IN ERROR . r 
'■TEST DATA ; 

iinitiaiiie the. buffer; so oe. decoded for testing . . 
■"■* ' OFF.REED.SCL.LED.DCD / , .' .indicate no problem; with Reed Stloaor. 

• „. . in ., r m < • ; make sure ..it's linear buffer 

■ZZl ; sure it.'s linear buffer- 



move • y:<linear.m6 



jmaice sure it 's . linear buff er 



■ **„mofe«f n .-code the 1st of the encoded frames 

move, ,.#framebuf,rl . .... . tMt value accumu iatcr 

. ~ r a . - ; & to increment. in the test buffer 

; set . f ranie buf f er to sec^uentially incremented. values 

■ do- #9€,_initl. 
. add- /.xO.a" 
-* mcve al.x:lrl>- 



.nit 



; dc the reed sclomon encoding, on the test. frame buffer 

w '* »i -o/c pcinter of buffer to be RStDECODE- 

mOVe tY ■' ;i/P pointer .for CODED data tc decode 

mOVe SStoFi^f Reed Solomon profile: control; ae code 

move . «FRDFl.w,. -encode via reed, sclomon . 

•jsr <rsaecio . / y . ' 

.•test if the reed, solompr. codec worked or NOT •■ 

• . '■ ' w , , £ •Bcinter for DECODED data to be stsred 

; verify that the reed solomon coded values are correct 

•'do. ; :;. «8€,.RS_Chk' ■: ^ : .^ t ' current' coded data output 

move x.:ir6)*,x0 ■■ pr ecoded look up table value 

•move x:trl)*.a - ■ ._■ ; compa re 2 values • 

; . cm? " iame.: '■ '.;If SAKE No problem. ' . 

• •^REED.SOL.LED.DCD^ V;^/.. ^cate no proble* «i« Reec.So^n 

enddc " ^ ' 

■ : nop . ' ■ • 

Same: - 

■ . • ' nop .■ ••' ■ -' ■.' * 
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_RS_Chk ; \ : . ■ - •■■ - V ' •.. * 

SET L£DS DCD " ■' • - . 

I NTERRUPT_HOST_DCD 

;mute current output buffer. 

\- move &outbuf,r7 ; setup . synth variables ' 

jsr .<muteout ;mute the dac output buffer ■ 

; get the external switches to* determine frame bit rate 
; . and ancillary data baud rate. . 

GET_SWITCHES_DCD gsws_00 , ' ' 
jsr"'. xgetsws ■ 

; MUSI CAM selections by switches set up prior to. possible auto select . . 

move x: tstsmpl.yl 
- move yi , y : smplrte. ■ -;set the i/p PCM sampling rate code 

move' x: tstcode, yl 

move ■ yl ,y : iputcde ;set type , of i/p data MUSICAM vs G722 

- • ■ move" x: tstrate, yl. 

, move yl,y:frmrate ; set the frame rate i/p code .-][■.. 

;!!!dsb 11/22/94.-. 

;; ;if no auto selection required, . go .with* the settings, from the . input switches 

tt ■ ■ - "■ ■ ■ . - ■ • ■ . 

- ; ; move . ■ fcautosel, r0 ; 

■ nop • 

.; • jclr '. #o,x: (r0} ,_onward_ . ;NO auto selection . required 

: 1 !dsb 11/22/94 



;if the selection of MUSICAM ys G722 is not auto selected, _ 
; test for MUSICAM input . data stream selected versus G722 data input stream 
and if G722 selected manually, boot rom file from lower half of the chip 

j set #AU70_SELECT_DATA_TYPE , y : <ct If lgs , _auto_type 
move y: iputcde # b 

tst . b ;0 - MUSICAM, else G722 

jne - <g722_boot ;if 1,.- it's G722, boot lower half. 

_auto_type ----"■•""''/--*■.- 

initialize the auto select MUSICAM max. tries . . 

■move.. .>>MAX^BOOT r TRIES,xO 
move -. x0 , x :maxtrXes 
. , jsr xautoselect . ; try for. MUSICAM input data 

;if autoselect successful, use the -selected info- " ■ 

■ move; ' 8autosel,r0 . 

\ ' .■ ".nop-." ,/■ ' • ' . 1 • ■.' • - v '"-. • - • : 

■' ' noo -* :-• ' ■ • ' * - •* ■ ' '.' ■' . ■ ' - * " 

jclr *.- #0.x: <r0) ,j3nward_. ;N0 auto." selection required 

,;if auto select for MUSICAM_vs_G722 , it must be G722 ; 
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• nop ' . ...*. ■ .. . • 

• nop : . '\ ■ ' ' . ■' • • • ' "■*'•■-. 

v . nop-" '-.'.. ■ . ■ '■' ■ ■- ' , " 

. - ' nop - - * ' " '. • *v , . ' ' .' ■ ' . 

/indicate nor MUSICAM framed " 

ON FRAME LEO DCS* ; set che framing led alarm 

SET LE2S~DCT~ 
-. IKTERRUPT HOST DCD- 

*■ jmp. ■'■ crestart \ / v-^y for new switch settings - ■ 

_onward_ ■ 

.•everything for MUSICAM selected by' switches, or auto, selection' ' 

move- .- x: tstsmpl-,yl . . ' . \ . 

move yl.y:smpirte .set the 1 /p. PCM. sampling rate, code 
' move ' x: tstcode.yl* ■ ' - *' 

move. yi,y:iputcde . - ; set, type of i/p data MUSa wAM vs v»;2^. , 

•move". x:tstrate.yl ■'" ' ■ : . .-' ./ . 

■ " move • . yl.y:frmrate ,;set the frame rate i/p code' 

" move' x: tstbaud.yl . . > ■ . ' - ■ ' . 

move yi,y:baudrte ' * .set ancillary data baud rate code : 

" ; ;test f or . the diagnostic method of operation 

• TST CLR DIAGNOSTiCS_DCD._go_fwd ;if normal operation, continue. . 

; .-diagnostic method of operation selected, reboct from, the low portion, cf chip 
'* bc'lr '. #liVx:«M PBD . ;tlr boot cOOO for rdcddiag boot <.:-C0t " 

■ ; • '.'.-. j^tp ' • .<bootup -■ -" " ■■' 

;_gc_fwa, "/ , _ ' 

; set the values for the data collection routine. 

• This is used for setting the value for the. mod buffer ctis 
' v:frames2 , ..input for purposes cf framing 

1 ; , v'frmemod normal framed, input (double buffered- * frames; 

• but setting the address of a. buffer. (y:inpwptr; can't hurt either. . 

-. move'- #syncbuf.aO ';set input word pointer . . 

: ^ i ^framebunr " • ' puffer addr of MUSICAM decode buffer 
; • ^e . • ap!y:inpaddr ; store input buf adar for saving frame 

set access io~ the flags resulting from autesel framing pattern match: 

; . bit C - sampling rate: • 0 low. l - high. 

bit 1 - framing bit rate.: ; 0 - low, * - high ■ 

: ■■. ill 2 - ISO VS Old CCS: * 0 - ISO. 1 - old CCS CDCxCCO 

■ . bif 3 - CRC- 16 protection: 0 » yes. i -unprotected 

■ ; move. ' , *chkflags.rl ■ ; ' .; ' ;•; ;tc test -results of autosei match ; '; 
■ ; based'' cn the sampling rate and framing bit; rate '-selected: ■ 
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set the sailing race code for the ISO frame heade- 
set cm .raming rit rate code for the ISC frame heade- 
set the frame . size :n words and bits 

move " frsamplng, rO . " 
move • y:smplrte,b - 
tst = b - : #:o,nO - 



3*<J -. <_smplcds_ 



rep \ 
move 

_smplcds_ 

. move.= 
jclr 
move ■ 

_smpl_ cds_ •" '■' 



b : 

ir0;.*nd 



*4 , 

1*2, x: (rl.< , smpl cds 
irO+nO ■ " , 



bi: 



;set 



move; 


. y :.(r0) *.x6 


move 


xO,y:smplcde 


move 


■ y : !r0; ~,xC. 


move 


xO.yrsmplidbit 


move 


■ y: (rO -,x0 


move „ 


. xc;y:maxsubs 1 


move . 


y: irO) +7x0 


move 


•-. xC,y:maxsubs 2 


move 


yrfrmrate.b". 


move 


-tfbitrates, rO 


est '.. 


b #8, n0 


jeq - - 


5.bit_off s_ . 


rep 


b , 


move 


• ■ (rC; +n0 


:s_ 

! cable 


offset based on 


move 


y : smpirce,b 


tst -/ 


b: #4, no 



: rep 
move 

_smpl_ 
move 

- :• jclr'-. 
.. move 

_rate_ 
move 
: move 
move " 
move. 
- ' move 
'.sub 



_bit_smpl_ 

fa: V 

(rC) +n0 



y: (rG) .,xC * 

#2»x: '.ri: . bit rate 

y: trO) ,xc 



xC , y rbitrate 
*>l,x0 

:r0i * • 
y: <rO;,,b . 
fc,y:f rmsize 

xc.b ': 



. ;addr cf sampling rate codes 
; offset to sampling code table*' 
;test for sampling* rate" cf ze~o 
; & set register to advance thru table 
;if code is zero, .we' re. there 

.•position to selected sampling rate code 

;cffset MPEG- ISO v S old CGS values 
;if ISO. rO is all set fcr ISO values- 
; offset to old CCS; : CDC1CCC values 



;get: frame header sampling code 
,;save code to match in the frame 
;get frame header sampling id bn 
;save code to match in the frame 
;get 1 channel frame maximum sub- 
rsave max sub- bands for decoding 
?get 2 channel frame maximum sub- 
;save max sub -bands for decoding 
/test bit rate to set audio data 
;addr. of framing bit rate info 
;test for rate cf zero 
; «< set register to advance thru 
, /if code is zerc. we're there 



neaaer 

header 

bands 

mono 

bands 

dual. 

size 



table 



;position to selected bit rate code 



; get . the sample race code : 

;test if low sampling rate • 

. & set offset to proper sampling fate 

;if low rate, addr is set 



/position to selected sample rate 

;get :iS0 bit rate code m frame header 
;if ISC, xO is all set with ISO code 
;get old CCS bit rate code in frame her 



;save frame* header bit rate code 

;to subtract 1 for mod buffer ecl below : 

/advance to sampling rate lengths 

; kbit/sec rate frame size in words 

; set.** -of words- in a frame 

;tc set decode framebuf ncd' ctl 
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move . . 
• move ■ 

. sub 

^ move 
.' add . 

isr 
.move. 

;now calculate 

•■/.;-. mpy ■ ' 

' asr 
* : . move 
sub ■ 
■' move . 



fcl, y:d=dfrmod 



y 

b. 

xO,b 



rms ize.b 

#>NSBUFS,xl 



bl,y: frmemod .. . 
x0,b . y: fnr.size,yl 



.set MUSI CAM decode framebuf mcd ctl 
.get to of words in a frame " 
; double buffer framed i/p buffer . 
.-subtract 1 for mod buffer control 
;& set number of frames to check 
;save mod buffer control. -.2 frames 
; re-add 1 to calculate 1/2 frame size 
; and get full. frame for below 
; frame size divided by 2 
;save 1/2 .frame size il full, frame- 



bl,y:frmhalf , 
:he framing buffer circular mod control 'size 
xi,yl,a : *>l,yC \ 



a "., 

• aO^.a ■■ 
yo.a . 
al.y: framesz 



.•times frame size' 
; and set up 1 to decrement 
;.align integer result 
-v; shift integer resuit 

minus l for mod buffer control 
; save framing mod buffer centre 



- set 



up to 
a 
b 



ancillary data to be decoded from. a framed/and transmit via rs2 32 



set address of clock table, baudclk, 
set table offset by baud rate; 



:hese are standard COQ2C00 set by macro 
0 -300 baud 



based on baud rate (C thru ~ 
BAUDCLX, in box ctl '.-asm.' 





1- « 12 00 baud 






. 2 a 24 00 baud 






. 3 * 3200 baud 






4 ■ 4800 baud 






5 ■ 38400 baud . 






6 -9600 baud . 






7 - 19200' baud 




; ' -. c . set 


transmit enable . 




i ' 9«- 


and set: the clock . for 


baud rate from the table 


' e. ad-i 


us* to the sampling rat 


.e info - 


;-v- f get 


and set "the max .bytes 


for baud rate from. the cable 


move 


*rbaudclk,r0 


; get data baud rate table . address 


move 


y :baudrte,b 


;set to access -clock at baud rate . 


7* bset 


»MTE t X:c<M SCR 


■■ ;set transmit enable • 


tst 


. b .". #3 , nO 


;test for rate cf zero 






& set register to advance thru table 


' :«q • 


• <_baud_cds_ . 


;if code is zero, we're there 


• rep ' 


. b- . 


. ; position to selected baud rate code .: 


• \ ■ move . 


. (rOV+nO 



oauo cos 



move y :*(r0i * ( r2 

move y:smplrte,nC ; 

movep r2 ,X: <<M_SCCR 

move . y: ir0+n07,nl 

move r.l , y : maxbyt es 



;get clock value at baud rate 
..•now get sampling rate offset . ■ 
;set the clock for selected baud. rats 
;get max byte count at sampling rate 
; store maxbyt es for scixmt tc check 



;set flags for sampling rate- and .type cf data received 



■nove y : f rmrate, b' 

tst . b . ■ - 
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- SE7JU_BIT_RATE_DCD 
imp" ~ <_smpl_ 



:dbg 



SST_LO_S I T_RATE_DCD 



; snip! 
;T:idbg 



!dbg 



move y:srapirte,b : 

tst b . y:iputcde,b 

jeq ' ■ " <_-yP«_" 

.jeq < — s Tnpl_lq_ 



l ! !dbg 



■ • bset • #SAMPLE_RA7E_L0W - vs_KIGH;y':<ctlf Igs • . 

■ omp~ " <_-yp e . 

.'; ; : i :dbg 

; stnpi lo_ • ' _ " 

~ . SET_LC_SAMPLS_RATE_DCD - 

l*yp«_ /. : " 

;test for KUSICAM input data stream selected versus G722 data input stream 



tst 



b 

crate 



;0 MUSICAM, else 5722 

•if 0, it's MUSICAM. test bit 



rate 



;g722_boot 

;G722 input selected, signal the encoder XMICRMUS and 
. ; • boot up RMCRG722 from .the . low portion of chip 

;!• 12/7/1994. • SET_G722_OATA_DCD " 
bset #MUSICAM_vs_G722,y:<ctlfigs 



OFF FRAME LED_DCD 
OFF~CRC_ERROR_LED_DCD 
OFF"mONC LED.DCD 
OFF~JOINT LED DCD 
OF?" STEREO L£D_DCD 

off'lo bit~rate LED_DCD 
off"hi"b:t"rate"led.dcd ' 

on g722 led_dcd 

off musicam_led_dcd _ 

qpf^lo sample rate led_dcd 

•off~h:~sampuCrate_led_dcd 

set" less dcd - 
interrupt h0stj>cd 

bclr »Tl.x:<<M_PBD; 
jmp • <bootup 



douse the framing led alarm ■ 
douse the crc error led alarm- ' 
douse the -mono led indicator- 
douse the joint stereo led indicator 
douse the stereo led indicator 



; light the; G722 front panel led. 



'/set the leds as needed 

;clz boot cOOO for RMCRG722 boo: 
•boot in RMCRG722 



rate 



. . . .dbg ■' 

SET_MUS I CAM_DATA_DCD 

; setup synth variables. 



: :dbg 
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mcve 
move 
move 
move , 
jsr 



»outbuf.r7. 
«2..n7 

r7,r0 
<alignptr 



•setup synth variables 
; set to' skip left and right 
; set circular outbuf ctl 
; set up to ; set read and. write p:rs 
' ;set ptrs ' 



t Now. set priorites; of the ;iRQA and : SSI * peripherals 
; IRQA priority - C. turned o.f 

HOST set to IPL 2 . 
; SSI priority. - 2 r ; . ... "* 
■; SCI priority « 2 



movec . #>SaOOO,x:«M_IPR 
movep #>$a8.00,x:<<M_:P.R 



;set ir.t priorities and. edges 
.'•set int priorities and edges 



;!!ldebug tickle to see.it chip .booted • 
;_loop 



bset 
bclr • 

:«»p 



watch dog • 
watoTdog 

<_ioop 



for the dust to. settle before pushing onward 



;KM 

;KM 



move 



* >RD CDS YNT_STARTOT , a 
<wait- 



■ - • ' . ' ; cum on the interrupt ..system : 
andi »5ic,mr 

: . NOW we are alive with interrupts on) j 

; set the .addresses of inbuf and nxtbuf - to receive the input data. 
ref rame -., ' - 

bclr: ^ #Mjr:E.x:<<M.SCR:; ■ ~. disable anc data transmit interrupt 

''L~ "MM-*-'-' ; clear the DAC reset line to mute cutp- 

CLR_DAC_R£SET. . ' - J,= - ■ , 

• ; if G722 data input; go to the RMCRG722 boot -up routine . 
j set #H0SICAKvsj;722 1 y:<ct:flgs > g722_boot 
; since it's musicam, keep- in this routine and set indicators ' 



SET MUSICAM DATAJ3CD. , 
ON MUSICAM_llED_DCD . 
OFF G722 LED_DCD . 
• .ON FRAM£~LED_DCD 
- • ON~CRC ERROR.LED.DCD . 
' OFF MONO LED_DCD. 

'. .off'joint i£D_pa- 

... 0FF~S7ERE0_LSILDCD,. / 
set.micrc leds ' and indicators 

//move-/, tfrmrate.r? 

nop * * 

. ^set #0.v: trO) ._do.hi. 
S27J.:_2:T_RA7S_3CD . 



■set the framing led alarm . 

•set the crc error, led alarm 

; set the mono led indicator • 

•set the jc int stereo led indicator 

iset the stereo led indicator 



; test for frame higher Kbit, rate 
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ON_LO_3 IT_RATE_LED_DCD 
OFF KJ_BIT RATS L2D_DCD 
jmp~ ~ <_3o_co3ing2 

do hi • ■" 

- - - SET HI BIT RATE_DCD 

• OK KI BIT RATE_LED_DCD . 
• ' - . OFF_LC_BIT_RATE_LED_DCD. . 

■ do ceding ~ • \ " 

- - . - jset # SAMPLE RATE_LOW_vs_HIGH, y:<ctlf lgs._hi_rte_ -test hi sample • _ 

- ' set lo ' sample rate_dcd 

on lo sample rate led_dcd • 
. off_hT_sample_rate_led_dcd 

jmp~ ~* <_do_plld_. • ^ 

■hi rte • '"■:'*" . ■ . * 

" " • "SET HI SAMPLE RATE DCD 

. ON HI SAMPLE RATE_LED_DCD ; 
. OFF_LO_SAMPLE_RATE._LED_DCO 

_do_piid_ 

.-check the phase lock loop signal: 

TST SET PHASE LOCK DCD,_set_PLL. : 

OFF*PHASE LOCK_LED"DCD ■ ;tum off phase lock led indicator 

.- jmp * . .. <_set_ aim " ^ 

- S€t - FLL 0N PHASE LOCK LED_DCD '.-turn on phase lock led indicator 

- Set -^ lir 0 N ALARM.LED^DCD . . . ; set alarm led indicator 

TST SET ALARM RELAY DCD, set led_A Yunless already set . 
SET"ALARM_RELAY_DCD~ ■ ~ ; set the alarm relay line on 

. .- Set - 1,d sET_LEDS DCD v ; set the leds as needed 

INTERRUPT_HOST_DCD 

;mute the audio output until we are framed 

jsr s. . <muteout . . ; ; mute the dac output buffer 

controls to force a reboot if . an inordinate number of .framing errors .: 

v.frtries 'a ■'" ; get 'frame tries - : ' < 

#"u*v Tfliis xo * -get number of tries tolerance . 

'* ' ■ ■ £>fx0 ' ■ ' 5t number of tries tolerance 

: Zg » #>l yo ;make test & set up to iacr count 

^ ?°' a ,y ; kill watch dog, if reached tolerance 

jit ■ <_dsb_dbg_ 

if manual" auto selection, do not force a reboot • \. ■ 

. move #autosel.rO : . 

'*% ' #o.x:(rO).jnanual.restart\ '.manual select, dc not reboot 
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nop 
' nop 
nop 
nop 
nop 

.jmp 



crestart / 
_manual_restart . , 
;if in manual ; mode. zero the failure counter 



;kill watch dog 
;kill watch dog. 



cir * 
move 
nop • 
nop 
nop 
nop... 
nop • 
jmp.. 



a.y :f rtries 



icrestart. 



dsb ' dba 



"add 

move 
jsr 



yO.,a . . #syncbuf .rb- 
a^y: fr tries - 
<framit 



;in manual mode start over 



; increment count of frames . 

; & get address of sync buffer 
. ; update count of framing tries 
. ;and frame the data . 



;test for successful framing, if not, restart 
, tst . a . r3,y:IPbitoff 



;test if framed ia » 0 if framed) 
; i save the, bit offset 



jeq 
jne 
nop 
nop 
. nop . 
nop 
jmp 



<_ok_ . 
<restart 



< restart 



;NO, we must restart 



;since we have MUSI CAM frames, set the flag for auto select switches 

bset ' #MUSICAM_IKPUT_SET,.y:<ctlflgs. . 

; indicate to encoder that the decoder is framed and to use pins for: 
; ■ MUSI CAM vs G722 . \ 

LOW vs HIGH sampling rate . 'V - ^ 

•(otherwise, if auto selected and pin .14 is. still low, encoder operates. 
■ at MUSICAM at the LOW sampling ■ rate) . 

SET_DECODER_FRAMED_DCD - 

; initialize the polysynthesis arrays for. the 1st frame 

* jsr ; <polysini. ' ' 

V the a reg is returned as 0 to go oh ' '. ' ^ . 

; clear the successive. CRC-16 bit error sensed counter • . - , • . • . 
- i*' exceeded according to the chkcrc routine, .automatically re frame. 
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move a,y:biterrs 

move '. a.y.oof 

move a.ytvoof 

- move . a, y :pocf . 

move ■ a,y:doof ' • 

move ;r5.y:IPwrdoff 

bclr . *FlRST_7IME.y:<ctlf lgs. 

. bclr ' #FRAME SAVED. y: <ct If Igs 

bclr : #USE SAVED. y:<ctl figs . 

bclr #SAVE FRAME. y:<ctlf igs. 

bclr- • #USING SAVED , y : < c 1 1 f Igs' 

bclr . ttREFRAME , y : < ct 1 f Igs 



;zero the bit error counter • - 
;zero out-of-frame faults counter 
;zero sample rate code faults counter 
.•zero CRC protection, code faults counter 
; o ancil data errors /eld CCS CRC- IS cnt: 
.•save i/p buufer word offset 
; clear the .indicator 
vclear the indicator 
,-ciear the indicator . 
; clear the indicator ' 
.-clear the indicator 
; clear the : indicator 

; douse decoder framed alarm led . , 
.-set the. leds as needed. 



• -■ OFF FRAME LE£_DCD ..• ;.; . . 
■ SET~1£DS_DCD 
/ IN7ERRi:?T_HOST_DCD 

;fcr ancillary data decoding' purposes , determine the. end- of the' coded frame' 
jsr <f ramend 

initialize the ancillary- data controls for decoding and transmission 



move = 
move 
move . 
do ■ . 
move 

rlr data , 

• bset 



a. ftdatabytes, rC 

a,y:bytecnt 
rD,y :dataiptr 
rO.y :dataoptr 
3DATABUFLEN . ^clr^data 
a,y:(r0)* ,. 



*M_TIE , X : <<M_SCR 
Let the show begin. 



.zero the decoded byte counter 
; & get addr of the. data byte buffer 
;bytes decoded counter set .to zero 
/address for next, byte decoded 
; addr for next byte to put- RS232 

.-zero the ancillary data buff er 



rset' the -data transmit, interrupt 



top-' - 

; get the external switches to determine if any: changes that signal a restart 

GET SWITCHES_DCD gsws_29 
■jsr" • <getsws : 
■ ^set-v • #4 ,y:<not_appl, restart • 
jclr . #4.y:<not~appl._ok_2_ . 

,". nop ; . ■ . • 

. " nop- ' \ 

' nop.'. ' * ." ■ • ' '.' - "■■ 

'-' .'• nop , . : ' ' ' .. . • - ' 

... jmp . ■* <restart 

_ok_2_ •' •;• •' ; - . ' :.'■■■* \ •. -. . • 

.-.check. the phase lock loop; signal: , 

- TST_SE7_PKASE_LOCK_DCD,_set_Fh ■ . - ; . 

" if not set, .clear the phase lock loop led and light the alarm led. • 

' C-R ZkZ RESET* ■ * ";s*e ar the : DAC reset . line to mute cut?.: 
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DFF PHASE LOCK LED. DCD 
ON ALARM ISZi DCD . ~ • 



TST SET ALARM RELAY DCD, set ied_B 
SET~AIJU?MJl£LAY_DCD~ . ~ : ' ~ 
}mp~ . - <2set_led_B 



;tum f phase iock led indicator 
;iight alarm condition led ir*a;ca:s: 



_set_ph 



else/ light' the phase lock loop led " . 

and if there. is no.CRC bit error/ clear the alarm led, ' 

ON_PHASE_LOCX_LED_DCD , ; light phase lock .loop led indicator 

TST SET CRC ERROR~DCD, set alm_A ; if crc error set, cum alarm led on 
CFf^A^M.LED- 0 ^. -~ ur ~* alarm led indicator - • 

' TST' CLR ALARM RELAY DCD, set led B 

CLR~A1ARM_RELAY_DCD~ ; " '..•/..: - • 

.jmp~ \ • <~set_led_B . 



set aim A 



ON ALARM LED DCD 



; light' alarm condition" led indicator 



TST SET ALARM_ RELAY DCD, set led B 
SET~ALARM RELAY DCD. 



led B ■ . . 

OFF OVERLOAD LED DCD 

set"leds DCD~ ' " 

INTERRUPT HOST DCD 



bset 
bclr 



WATCH_DOG 
WATCH DOG 



; clear decoder overload alarm led 
.set the leds as needed • 



; tickle "the dog 



.;. Now wait until we have 1 word in the input buffer ■: 

; The varible wait form contains the address cf one word after the sync word. 
; This is the word to Wait for in the interrupt routine to signal the 
; . start- of a new frame. 

;set up tr.G as a mod buffer of one frame- 
;get buffer length' 
;vord offset for frame start 
;get 1/2 buffer length: frame length 
; times 2 ' -. 
. ;set framing buf length for addr compare 

; increment to next input frame . 
\ ;save new offset word to start, cf frame 
. .; increment 1 word 
. _;set as' address to wait for 

/restore rC. to linear addressing 
• ;get half the framing buffer size-.' 

; Here we check if we have received enough data, to proceed 
; This is done by. checking by subtracting the 



move 


y : f rmemod , mO '. 


move 


y :f rmsi2e,n0- 


move . 


y: IPwrdof f , rO 


move 


y : f rmsi2e, a 


Isl 


a 


move. 


al,y0 . 


move ' 


(r0)*n0 


move . 


r0,y :IPwrdof f 


move 


; " (rOi ♦ 


move 


■■ rC.xO .'• 


move 


y:<linear,mO 


move . 


, y :f rmsize,xl . 



rdec 



bset 
bclr 

move" 



WATCH DOG . . 
WATCK~DOG \. 

y : cinpwptr . a 



; tickle the dog 

,-get curr read frames. 



SUBSTITUTE SHEET (RULE 26) 



\ 



BAD 0B»e»NAL; 



WO 9602805 



PCT/US96/04835 



-170. 



sub 
add 



• rdec 2: 



cmp 

•.jit 



xC a 

<_rdec_ 20 
y 0 , a 

xl , a 
• <_rdec_15 



; sufi acdr :o wait for . 

; check fer zero addr wrap around--. 

; bump result by framing buf fer . length 

;see if past a half a buffer 

; if net yet at the half-way. loop 



••i* required for even frame sizes when auto select sampling; rate . 
\\\ make sure no rate switch fooled the decoder 

VERI FY.AUTO.SAMPLE ' >** needed by box.ctl.asm 

■:.::dgcst r.": ]" /..:'.,- 

/take the next frame, to .decode .and word align -it for reed solomon. decoding 



move y : IPwrdcf f . re- 
move, # syncbuf. no \ 
move . y : f rmemod, raC 
move #reedsolbuf , r; 
move. #framebuf,r2 
move JrOWnO 
move ytfrmsize.nC 
move y:IPbitoff,b 



;get the word offset for the next fame to decode 

ibase address of the i/p frame buffer 

; doubled buffer i/p . 

*; addr for Reed Solomon i/p buffer 

; addr for MUSI CAM decode frame i/p buffer 

; get to start, addr of current i/p frame . _ ' . 

.•number of words in a frame 

.-bit-offset to sync pattern in 1st word ; 



•far th*. length of a full frame. ; . ' 

I get fhe words in pairs and shift to word. ooundary 



do 

move 



r.C'.- reed shift' .- " . ■ 

x:(rO>-,al . .-1st word of the curr pair to shift 



;if words already are aligned, simply copy the word to the Reed Solomon buf fer 

/.est.. ' b ■' x: (rOJ ,a0 ■ 



; see if a shift is needed. 
; & aet 2nd word of curr pair to shi-: 
: neq ' - <jrxc_ahitz : i 'lit no offset, no shift, needed 



;for the, number of of fsevbxts. shift the pair- of words, to. abut, properly a! 



:gr.e: 



rep 
asl 



b. 
a - 



_no_shif t '• . ' - 

.•copy aligned word in Reed Solomon buf fer. for decoding 
"• ■ :dbg - • 

■ ' .•■;r!|:!3!* ' ,-also copy *o MUSZOH frame buffer 

' move a* . * •. * * * •. . 

_reed_shift .. : ' \ ■ 

. ..decode the Reed Solomon' frame back to a MOSS CAM frame . 



move y : < linear .mC 
move oreedsolbuf . r€ 
move « f ramebuf . r 1 

move . tPRCFi . r3 . 



i restore rO to linear addressing 
•Reed Solomon frame buffer: 1/? .. 
'frame buffer decoded.: o/p 
■ -Reed Solomon profile: cor.trc. oe==ce 
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; ' . .. • •'. ' : " . . . -pi-; - '. ; • - ' • • ■ ; ,' -\ < / j ,; 

jsr <rsdecI5 . ;'ao'Reed Solomon decode. 

; Now setup the buffer reading routines 

■ move y:dcdfrmod.m6 .-decoded Reed Sol frame bufmod "-ctl".. 
move ' ttf ramebuf ,n6 . .-decoded Reed Solomon frame buf f er addr 

■ move '* y:wrdoff ,r€ ; .. . ;bit cff set from msb;. 

move . . y:bitoff .a * • ;bit of fset .from msb -' -\ , 

bclr . **USE_SAVEb.y:<ctlf Igs ; clear used saved frame flag . 
bclr 8L T SING_SAVED.y:<ctlf Igs .-clear using, saved frame flag . 

• OF? CRC ERROR_LED_DCD \-turn cff the crc error led indicator 
- TST~SET~PHASE~L0CK_DC3,_cir_aim_A ; if not phase loop . locked .; then 

CLR DAC_RESET ; clear the DAC reset line, t= mute output 

' ON "ALARM LED DCD ; light alarm led indictor 

■ TST SET ALARM RELAY_DCD. _set_led_C 
SET~ALa5y._R£LAY_DCD"" ' "turn the alarm relay cn 
jmp" - <_set_led_C * 

. _clr_aim_A ..." 

.-release the digital to analog converter for output 

- • SET ' DAC_R£SET . ■ '..';.«« t the DAC reset line" high now 

OFF ALARM LED DCD ;tura off alarm led indicator 

TST'CLR ALARM~RELAY_DCD . _set_led_C 

CLR~ALAaM_RELAY_DCD~ . ;turn the alarm relay off 

set_Led C .. 

- SET LEDS_DCD . ; set the leds as needed ■ 

:nterru?t_host_dcd . 

bclr " #SAVE_FRAME,y:<ctlflgs . ;clr ind for getvaiue to save frame wds 

• ; Now. we. are ready -to decode, the current frame using: 
- .- n6 » buffer .address 

r6 « word offset into the buffer for start of the frame 
; a » bit. of fset into the word offset into the buffer for start of the frame 
m6 m mod buffer control through the buffer this will be either 

normal input for 3 • frame size -1 (leaves space for saved buffer) 
;' single, frame size -1 for using the saved frame if a checksum error) 

_rdec_30 " / • '.'; . " - , 

. • ! : idcsct '. bset ■ WATCH DOG ••■ '". tickle the dog : . 

\ l i :dgsct ■ ■" "• bclr ■ WATCHDOG . ■. \ ■ ' • ; ; . ^ckie the dog 

• TOGGLE J*ATCH_DOG_DCD .; 

jsr • <bitsallo "; 

./prepare to suppress ancillary data if any out of frame condition 

/bclr- *NC_SYNC,y/:<ctlflgs : '\ ; .-clear t he indicator 

Now get the syr*c pattern. If the - pattern matches a good "sync. . then ; 
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; the Dcf rcunter is decremented. If it doesn't match, the ocf parr err. 

is incremented. ' If it .is incremented past, an upper limit, an cut of 
; frame condition is declared, and the system goes into framing. 
.; On the other hand, the oof counter is never allowed to go negative. 



3sr ;. 

move 
move 



<getsync 

al.yO 

y.:oof ;b 



,*get the sync bits 

;move right justified value 
;get current of ■ .bcf ' s ■ " 



.'; if using the saved frame, .do not recount sync problems 



a*JSE_SAVEE.y:<ctlflgs._rdec_50' . 

*>SYNC,a - ■ ~ ; get sync pattern for test. 

yO.a ft >GOOD — DECREMENT , xl ■ ;dc we have a valid sync .: 
. . "; & set good sync decrement value 

jcq,- *". <_rdec_40 .'."-;-.'■'"'. 



jset 
move 
ctr.p 



We are here because the sync did net match.; 
Increment the number cf bad syncs found.. 



bset " 


#NC_SYNC.y: <ctlflgs 


,*set indicator to' skip ancillary . data 


move 


#>BAD INCREMENT , xl 


;set the bad match increment value 


add 


xi,b " K>BAD_LIMIT.xO 


; increment the number of oof's 






; & set limit value to restart . 


cmp 


.* xO.b 


; see if at the limit' 


j U 


■ <_rdec_50 


' ; we are not. so keep going 


nop 






nop • 






nop 






nop . 






nop-.-- 







;we # ve sensed too many sync pattern failures in succession 

700_MANY_SYNC_£RR0RS_DCD . 

; l ; ! rrmiennus jmp <restart ;at error limit so reframe 

; We are here because a valid sync was found; 
; Decrement the number of bad syncs found.. 



rdec 40. 



sub 

tst . 
tit' 



xl,b" 
b 

-..'.xl/b-' 



'ftQ.xl 



rdec 50 



move b,y :oof . 
;get the sytem header ,ihf 
; jsr ' <getsyst 



•decrement the number of oof's 
;see if at the. limit '; . 



;save the current oof counter 



;get. system header info 

;see if the frame- header sample rate code .matches determined sampling rate 
; If the sample rate codes match a good sync, then the voof counter' is ■ 

:he vocf counter is incremented/: 



; decremented. 
• If the codes dor/ t mate 
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; If - zr.e vocf counter -is incremented past an upper litr.it, we have tc 
".-do the auto selection again since perhaps the sampling rate has changed. 

move y : svesmpl, a ;get code from frame header, 

move y:smplcde,xO .' ;get code determined ■ by framing 

move . y:voof,b ■ ;get current n of vcof's. 

cmp ;x0.a # >GOOD_DECREMENT . xl . ; is a valid sample . rate code 

; 4 set good, code decrement value.- 
\. jne <_ck_smpl_05 . - ;if we don't that's bad 

; now check the frame header'ID that matches the sample rate 

: move. , y : sveidbit, a ' get ZZ from frame header 

■ move ! y:smplidfcit r x0 ;get 10 determiend by framing 

. cmp .,- • xO, a. ;see. if a match ' ■ '"- 

jeq <_ck_smpl_lO . , . ;if we. do that's good - 

_ck_STnpl_05 

; We are here because there was nc match of the. sample rate codes. 
Increment the number of • unmatches. found. 

..move' 8>BAD_INCR£KENT, xl . ' ,;set the bad match' increment value 

add". ' xl,b " 8>BAS_I.IMI7,xO ; increment the number of voof's .' 
. . & set limit value to restart : 

cmp. xO,b ' ' ./=", -see if 'at' the limit ; ' 

, /jit, .. <_cfc_smpl_20 ; we are. not , so keep going 

■ i ! ; .dbg "* 
' ' nop" 

nop. 

nop 

nop 

■ nop" ' ' 

; ! ! !dbg 

' .i m P '-. <restart " ■ . ;at error limit so. restart 

; We are here because a valid sample rate was found in the frame header . • 
; Decrement the number of unmatched sample rate codes. 

_ck_smpl_10- ' 

~ '"■ . sub xl.b .. ; decrement the number of voof's 

tst: .b - ItO.xl ;see if at the limit 

.. tit xl, b . . ; if less than zero,- set to zero ■ 

_ck_smpl_20 

~. move' b,y;voof ; save the current voof counter . 

.-see if the frame header CRC protection code matches determined protection code 

; If the codes match, then the pocf counter is decremented. 

; If the codes don't match. . the pocf counter is incremented. 

; If the poof counter is incremented past an upper .limit, we have tc . 

; do the auto selection again since perhaps the CRC protection has changed. 

move y:poof ,b ' .get current * of poof's 

move " #>GOOE_DECR£MENT,xl ;set good match decrement value 

verify the CRC PROTECT setting versus auto sampling:, 
"if the frame header shows CRC protection, 

verify auto sample alsc indicates protection '-" 
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■■jset'. #PRCTEC7.y':<ctiflgs,_ck_prot_00 ' .-if protect., check autc 

.•frame shows no protection. 

.if auto sampling also found no protection," 
go to decrement the poof counter 
; 'otherwise, force protection and assume a bit error 
and increment the pocf counter . 

. .*-" jset #0.y : <protect,_ck_prqt_10 ; ;if match. " decrement poof - 
- bset #FR0TECT,y: <ctlf lgs ' ~ .-set the CRC applies bit 
2™? <_ck_prot_05 ;go to increment poof for the. bad match 

_ck_prot_00 • 

. ,* frame shows protection. , 

if auto sampling also found protection, continue 
otherwise, force nc protection and assume a bit error 

. and increment the pocf counter * >..-. . 

jclr <*C y :<protect._ck_prot_10 ;if match, decrement pocf 

bclr. UPRCTECT.y: <ctlf lgs ; clear the CRC applies bit 

•^ck^prct^OS. 

; We are here because, there was no match of the CRC protection codes. 
[ ; Increment the number of unmatches found. 

move #>BAD_INCREMENT.xl ;set the bad match increment value 

add- xl,b ~ #>BAD_LXMIT,xO /increment the number cf poof's 

; t set limit value to' restart .. 
cmp x0,b .-see if at the limit ■■ 

jit <_ck_prot_20 ;we are not. so. keep going 



: ! :dbo 



: idbg 



nop" 

nop . ' 
nop 

• nop ; • t l '■ 

jmp • <restart- ' ;at error limit so restart 



; We are here because a valid CRC protection code was found in the frame header 
;- Decrement the number of unmatched CRC protection codes.; 

_ck_prot '10' 

. ..sub xl,b. ..- .-decrement the number cf poof's 

. tst . b ■ : #0,xl - *. see if at the limit ' 

tit xl,b ; if less than. 2ero, set to zero 

ckjrot 20 

.move . b.y:poof ;save the current pocf :.coun,ter. 

;if there is CRC- 16 protection on the frame: 

; .set the CRC-I6 checksum bit count for the old ISO method: 

; a. header bits covered by any type of frame . 

pius bits for the left channel also apply to any type cf frame 
; b. - set bits for possible right channel based on . frame type 
,* c. if not MONO, add bits for. right channel^ 
d. save old ISO. bit count -for this frame 
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jclr 

move 
move 
jset 

add - 



♦PROTECT . y : <ct 1 f lgs . _rdec_€ 0 



rdec S2 



idbg 
•dbg 



move 
move 
move 

-''jsr 

jclr 
3mp 



bset 



Lf no checksum, ge: 



#>CRC_BITS_A*CRC_BITS_B ( a . . .. 

#>CRC3BITs3B,xO " " ;bit count for' right channels 
#STEREO_vs_MONO , y : <ctlf lgs , _rdec_52 



xO, a 



move 


a.xrcrcold 


bset 


WATCH DOG 


-bclr. 


. WATCH~DOG. 


/ jsr : 


xgetcrc 






move 


; *SBIndx,rO 




<getbal . 


move 


. #SBits,rO 


move. 


#S3Indx.rl 


jsr 


<getsbits 



#SBndSKF,rO 
#SBits,rl 
#SBIndx,r2 
<getskf 



;since.its stereo,' add for right ".channel 

; set the old ISO CRC-16 bit count' 
; tickle the dog 

; tickle the dog. ~ 
;get checksum, from -frame 



:; address of sub-band indicies 
;get bit allocations 

; address of SB bits array 

; address of sub-band indicies 

;get the sb bits -. 

.-address of the SB scale .factors 
; address of SB bits array 
/address of sub -band indicies 
;get scale factors 



♦PROTECT. y:<ctlf lgs. _rdec_70. 
< rdec '70' . 



;if no checksum, get data pts. 



WATCH DOG 



; tickle the dog 



*USE_SAVED,y:<ctlf lgs/_rdec_70 ;do net recheck saved frame . 

<chkcrc ~ ; check the validity cf frame 

*REFRAME,y:<ct If lgs. reframe . ;if too many bit errors, reframe 

♦REFRAME, y:<ctlf lgs, _dbg_dsb_ ;if too" many -bit'- errors, reframe 



jset 
:sr 
?set 
. jcir 
nop 
nop. 
nop-, 

nop ■ - 
nop 

TOO MANY BIT ERRORS DCD 



dbg dsb 
" Jclr 
• . jclr 



♦US£_SAVED,y :<ctlflgs,_rdec_65 "; if valid, continue with frame 
♦USING_SAVED,y :<ctlf lgs,_rdec_65 ;if saved valid, continue 



ON CRC_ERROR LED DCD. 
0N~ALARM L£D~DCD~ 



TST SET ALARM RELAY DCD, set led_D 
SET~ALARM RELAY DCD~ ~- 



; light crc error alarm led 
; light alarm led indicator 



'set led D ' • 

• ~ .SET LEDS DCD • 
. INTERRUPT HOST DCD 



;cir 



;turn" the alarm relay on 
set tne.leds as needed 
#rRAME_SAVEE-,y:<ctlflgs,_rdec_80 ;else failed 



if t.z savec ;rar:e 
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bclr 
move 
move 
move 



■_rdec_65 



• : output zeroes and try again" 
#FRAM tr SAVED. y:cctlflgs ; clear since we used the saved frame 
- ;else. set up last saved frame 

•word offset was : saved 

,*bit off set was -.saved' •-• 



tsavebuf . n€ 
y.wrdof f , r6 
y:bitoff,a 



<_rdec_30 



OFF_CRC_ERROR_LED_DCD 
bcir WATCH_DOG : 



.-go back and dc last frame again 

; turn off the crc error alarm led 
; tickle the dog; 



rdec 70 • 



; now , 



-a*--- the proper led for the type cf framing: 
"full stereo.. joint stereo,, dual channel or mono 



■ 3 set 
3set 



aSTEREb vs M0N0.y:<ctlf lgs,_rdec_53 
JOINT^FRAMING , y : < ct 1 f lgs , _rdec_5 1 



; if mono 
■,,-if join: 



stereo 



rdec 5: 



OFF MONO LED_DCD 
off"joint LED DCD 
ON STEREO^LED^DCD 
jmp <~rdec_55 

OFF MONO LED DCD 
0FF~STEREO LED_DCD 
OK JOINT LEDJDCD " 
jmp 7_rdec_55 



_rdec_53 



OFF STEREO_LED_DCD 
OFF~JCINT_LED_DCD 
ON MONO LEDJDCD 



;turn off the mono led indicator 

•turn off the joint stereo led indicator 

•light the stereo led indicator 



;turn off the mono led indicator 
;tum off the stereo led indicator. 
; light the joint, stereo- led indicator 



•turn off the stereo led indicator 
iturn off the joint stereo led indicator 
; light the mono led indicator 



rdec 5S 



; test 



SET LEES DCD " - 
INTERRU?T_HOST_DCD , 

if the fade controls are applicable 



; set the leds as needed 



-?T 
move 
' tst 

jne- 
move 
move 
' TST_ 
tst" 

jeq 

cmp 

tgt 

' sub 



*>1.X0 



~R FADE OUTPUT DCD, fade S ; if fade not requested, continue 
■ - %.ri V " ;get fade frame counter 

y:fadecnt b . . 9^ ±f ready . c fadc (fadecnt^ 

' " >A ' . & set to decrement frame count 

; not . ready yet , go decrement 
Iget current fade, value 
;get maximum fade down range . 
; increment to soften output 
*>FADE~START UP,xl ;test if. at loudest fade up - . 
* >fAU T .' ; & get test, for max start faae va.ue 

**a~ at'-. loudest, continue 

t~ 1 " #>FADE INCREMENT xO , ; test if above max start fade, 
x*,a ...iwHyt.utw** • ; t get scale -factor increment 

;: ^if heeded, set start fade up 

^i'a *»FADE FRAMES , b -adjust louder for this frame ^ 
xO.a »>FM6.tiwit5, fc -» get frai(ic c _ to next oecremer.- 



<_fade_3, ..' . 

yTf ade, a -\ 

*>FADE SOFTEST. y0 
S^T FADE DOWN DCD,_fade_l 
— . " * *Tranr QTMTT I 
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_fade_l 



cmp 
jeq 
add 



< fade 2 * ; store new fade SKF. adjusi value" 
vO,a #> FADE INCREMENT ,x0 

< fade 5 " sit at softest; continue 

xO.a " #>FABE FRAMES, b .-adjust, softer fcr.this frame ; 

" ." set frame count to next aecrement 



fade 2 



'. move' 
jmp • 



fade 3 



fade 4 



a,v:fade. 
< fade 4- 



x0,b 



V 7. move - " b,y:fadecr.t ' 
^fade_5 

; if 1st frame align the ptrs for the pclysynthes 



; save the new fadeSKF adjust value 

; decrement frame, counter 
; save the new fade frame counter 



iset 
move 
nsr . 
bset 



#FIRS7_TIME, y : <ctlf Igs _rdec_5? 



_rdec_5.7 



move 
move 
move 



r7.r0 

calignptr . ■ , 

#r IRSTJTIME , y : <Ct-flgs 



#SBIndx,ry 
#SBndSKF,r2 
#ASMData,rl 
cgetdata 



; align the read" 4 write . ptrs , 
set ptrs : . • " . 

indicate ptrs have been aligned 



;sb indicies 
; get the scale factors 
. Vset A share mem of rec samples 
;get the sub-band data 



^sf <getancdata 



.•process ancillary data 



r ; maintain the frame counter of successive ■■■«»~" ^ ^ 

chec^suir -oupled with ancillary data decoding problems...- ^ . 

; MPEG- ISO decoding or vice versa. nMarive . .. 

1 Tne docf counter is never allowed tc go negative. . 

\, a™* b ; get current « of doof's 

.move y:dooi,p • • •» 

-■A saved frame is not included in maintaining the docf 's counter. • , 

j S e^ '• *USE_SAVE2.y:<ctlfigs,_rdec - lS: ; / 

■;check-if a problem with old .CCS CRC-16 • algorithm coupled with 
; . a problem, with ancillary data., . 



move 
move 

' jclr. 



ttoldecs rl ;addr to test ancillary data problem 

! rnnn 4h!pmwt .to decrement error frame counter 

..^^ r ^^K^S; . ; ;it no. ancillary data error, decremer 



' w w was an ancillary data probiem/cid CCS CRC-16 

• .We are here because there was an anc — " 
increaier.- the number sf- bad frames fauad. . 
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: ! ! ! dbg 



;tc increment the number cf doc # *s 
; increment the number zi docf'~s~ 

& set limit value tc restart 
.see if at the limit 
;we are' not., so. keep- going. ■• . 



move *>3A£ INCREMENT," Xl ': 
add xl.b ~ *>HA2_LI-M:7.xC 

crap xd , b 
jit <_rdec_150 ' 

' nop ' : 

nop ' "". '. ■- '■• 

nop 

; : ! :db 9 •:, ' ' 

; "re frame if :oc many ancillary data problems in succession 

: TOC_MANy_DATA_ERRORS DCD . 
: jmp ; <_rdec_15C 

; we are here because the ancillary data decoded ok 

; Decrement the number of ancillary data problem frames found. 

_rdec 140 " 

" . ~ ■ sub " ■ xl.b 

est ■* b • . no ,xx ■'■ 

' tit xi-,b ■ 



.•decrement the number of doof's 
;see if at the limit ... 
;if less than zero, set to zero 



_rdec_15C 

move 

"■ jelr 
jcir 



b, y :doof 



; save the current doof counter 



!r P T«^^ :<CCl "??'- rde ^ 72 ;if no checksum, no reason to save 
,#USE_SAVED.y:cctiflgs._rdec_72 . ; did not use a saved frame 



;do net. reuse a saved frame 



Dcir 

jmp . 



#FRAME_SAVED,y:<ct:flgs ; clear we have a saved frame 'las 
<top. - . . - 



rdec 72 



.-since we had a good new frame, check controls for lone solid opera- ion 
; restart the counter "of frames with bit error " ' 

; and adjust count of , framing retries, that control reset needed 



clr ; b ' - #>l,yO 

neve . y:frtries,a 

sub.. yO,a b,y-.biterrs, 

tst a 

jge <_rdec 75 

'clr '■ a" . ' " 



'rdec 75 



move a,y:frtries 
jmp . <top 



rdec BC 



.Gr f_moi;c ■ LED DCT ■ 



;2erc bit successive bit error' counter 
; & to decrement counter every frame 
; get framing try "counter 
.•decrement counter every frame 
. ;. & zero bit .error counter ' 
.•see if counter, reached zero" - • ' 
;if not. continue 
;zero framing tries \- 

; save the reduced framing tries ctr 
;do next frame ■ ./ '' ■„ 

;turr. eff the none let. indicator' ■ 
.turn off the }eint sterec led indicate: 
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OFF STEREO' LED DCD ;turn of f- the stereo led indicator 

SET~*LEDS DCD ~ ; sec the leds as needed 

INTERRUPT_H0S7_DCD 

;mute the current frame 

jsr Vmuteout ; mute the output buffer ; " ' . 

jmp <top . 

end '. start * 
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; . -180- • >• ; 

• °p t - c - *. *. ■ ■ ' 

ic) 1991. Copyright Corporate Computer Systems, Inc. All- rights reserved. 

; \URDCOSYN\getsbits .asm: Ben's mux 

title ' Get SB bits' 

;" This routine is used to get the" SB bits of each cf the sub-bands. . 

;; on entry . - ■ ^ ; •" 

rO « address of the bit SB array 
; . rl -address' of the SubBandlndex array • 

; r6 ■ current offset in the input array 

n6 - base address of the input array 
; ■ y:<maxsubs - MAXSUB BANDS at sampling rate and bit rate 

; y:sc - shift count of current input word 

xrcrcbits » accumulator of bits covered by CRC- 16 routine 
(bit coded for SBits are : accumulated) ■ 

; on exit 

: . ' r6 » updated 
; \ ■ • \ y :sc • updated 

; " . a « destroyed "' 

; b -destroyed 

- xO « destroyed 

; xl » destroyed 

yo « destroyed ' ' : 

■ ; ' " yl destroyed . 

; . rO » destroyed 

; rl -destroyed' 

; r4, - destroyed !; 

; - n4 - destroyed 

include 'def .asm' ■ 

■ org - . - phe: 

; initialize : . 

; a. number of frame bits for a sub- band SBits index value 
; b. n0 offset for right channel sub-band SBIts values: 
; left channel from 0 to (NUMSUBBANDS - 1) . 

; right channel from NUMSUBBANDS to ((2 ♦ NUMSUBBANDS) - 1) 

; c. nl offset. for right channel . sub -band bit allocation values: 
; ^ left channel from 0 to { NUMSUBBANDS . - 1) 

right channel from NUMSUBBANDS to . ( (2 * NUMSUBBANDS) - D 

getsbits 

move #NSBlTS,n4 ;set number of bits to get 

'move . . #NUMSUBBANDS , nO . . ■■ ;SBits offset -right channel 

... move #NUMSUBBANDS,nl . . ;bit alloc offset -right channel 

move x:crcbits,r5 . : . " ;get CRC-16 bit' counter : - 

move n4,n5 ■ . ;to. accumulate, CRC- 16 bits 

;loop through the sub-bands- extracting the left and right. (if applicable)' 
;SBit values values (y:<maxsubs - fixed count of sub-bands framed"): 
; process- the" right channel: - 

; a. "fcr current sub -band. get the left channel allocation index value. 
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b. if the left channel index is' zero,, go to insert a zero SB^ts value " 
c otherwise extract the SBits. value for' left channel of - currer- subband 
and go. to- insert value into the SBits, array . . " eR " • suto band 



do y :< max subs, _gets 90 

move x: (rl) , b . . * 

.-est b * 

jeq ■ _gets_10 • 

. jsr getvalue 

move ' #>MASKNSBITS,xl . 

and • ; - xl, a . (r5)+nS - 

jmp. - _gets_20 



' ;.get left index for subband 
;cest index for not coded (01 
;use value of zero if " not •■ 
;get a sb value 
;mask for. sbits from getvalue 
/mask. off hi order one's 
; & accum bits for CRC-16 rtn 
go to store SBits value 



; insert O.for : the left channel SBits value for this sub-band 



_gets_i0 



clr 



;no index use zero*. 



; move the left channel SBits. value to the SBits array 
_gets_20 ; 



move 



al,x: (r0) 



/process the right channel : 

7 k* f ? r .u Urren ^ su ^ ban f * et the right channel allocation index value 
'* ^* iZv, right ch *nnel index is zero, go to insert a zero SBits value * 
: ^herwise, extract the SBits value for right channel- of current sub-band 

and go to insert, value into the SBits array a 



move . x: (rl+nl) ,b 

tst b 

. 3eq _gets_30 

jsr getvalue 

move #>MASKNSBITS,xl 

and xl,a (r5)*n5. 

jmp _gets_4 0 



;get right index for subband 
;test index for not coded < o ) 
;;use value. of zero if not . 
;get a sb value 
;mask for sbits from getvalue 
;mask off hi order one's . 
; & accum bits for; CRC-16 rtn 
; go, to store SBits value 



; insert 0 for the . right channel SBits value for. this sub-band 
_gets_3Q 



clr 



; no index use zero 



;move the right channel SBits value to the SBits array 

; increment SBits array and bit allocation index arrays for, next sub -band 



_gets_40 



move 
. move 
, move 



al;x: (r0*n0) 
(roj ♦ ; 
(rl) ♦ ..* 



_gets_90. 



move . r5,x:crcbits 
rts 



rstore updated CRC-16 bit counter' 
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opt f c, tnex 

;.:(c*"199i. Copyright Corporate- Computer Systems. Inc. All rights reserved. 

• .\URDCDSYN\getskf .asm: Ben's mux. 

.. title ." 'Get Scale Factors'. 
; : This routine is used to get the scale, factors of each of the sub-bands." 

• on entry .*••"" ). 
; rO - address of the bit scale factor array fx memory) 

rl- ■ address of the bit -SB array ix memory).-/ 

r2 - address of the bit SubBandlndex array .(x memory) . 

] r6 - current offset in the- input array .. : . 

n6 - base address of the input array - 1 

y:<maxsubs « MAXSOB BANDS at sampling rate and bit rate 
y:sc * shift count of current input word, 

; on exit 

;\ rS '= .updated 

; " Y- sc 3 updated' 

• " .- a - destroyed ■ 
; . ..b ■ destroyed 

; ' xO « destroyed 

xl » destroyed ."".-. : • 

; yO o destroyed 

. yl a /destroyed 
• ; . rO' - "destroyed : 

; .• . r4 « destroyed .. 

■ n4 • destroyed . 

include .' def . asm' 
.include 'box_ctl .asm* : 

org phe: 

getskf . 

; initialize :. ■ . . 

; number of frame bits for a sub-band scale factor index value 

• move #SKF,n4 ';..']' "-..•/..'. ;set number ; of ^bits to get 

move . #0, nO. . ;scale facts offset-left cnan 

; test the scale. factors for. certain tolerances: . .'- 

. ; a; zero scale factor is equivalent, to a bit error, 

■ '= indicate NO zero scale factor 

,- b. clear the channel overload led indicators- . 

. bclr #SKF_ZERO,y:<ctlflgs . 
OFF LEFT OVER_LED_DCD ~ 
OFF~RIGHT_OV^R_LED_DCD 

•loop through the sub-bands extracting the left and right (if applicable) 
.-scale factor index values (y:<maxsubs - fixed count of sub-oands framed) : 
•wi-"— the sub-band loop is a loop for both channels : left ther.ngnt 
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; process the left channel':" 

"; -a.. nC offset for left channel sub -band scale factor index values: 
; * left channel from 0 to (NUMSUBBANDS*NPERGROUF . - 1 ) ' .. 
] right channel from NUMSUBBANDS*NPERGROUP ■ 

. *;. .'" to(<2 * .NUMSUB BANDS *NPERGROU? > ■ - . I ': 

; b. ni offset for left channel sub-band SBIts values: 
; • left channel from 6 to (NUMSUB BANDS -I) 

right channel from NUM5UB BANDS to .( (2 .* NDKSUBBAND5 * - IV 
-; e. n2 offset for. left channel. sub -band bit allocation vaiues- * 

left channel from 0 to (NTJMSUBBANDS - .1) 
; • . . right channel from NUMSUBBANDS .to' i.(2 * NUMSUBBANDS ) 

• do y : <maxsubs ,_gets_90 

move,'-, .tt0.nl ~ ■ ;SBits offset -left channel 

.. move' #0,n2 . ;bit alloc offset-left channel 

: bcir #LEFT_vs_RIGHT # y:<ctlflgs ' .-left is current channel ... 

.•process a channel for the current sub-band: -1st left then right 

• a. update the register pointer with the offset into the scale factor 

; index array for the left or right channel 

; b . get the bit allocation . for the proper channel to' see- if any factors at al 

do #NUMCHANNELS,_getS_8C .*.--. 

move ir0)+n0 ~ •.. * .-offset for proper channel 

move X:(r2*n2),a .-get the SubBandlndex [SubBand] 

; .'first check if sub- band . contains anything to work on. : This value could ' ; 
; be ' zero if there, is no energy, in the sub-band. . 

'" tst a. x:"(.rl*nl) , a •'" • ;see if any alloted bits 

jne ' _gets_05 ;there were 

; no bits were allocated, so set the scale factors to 63. I could -ust 
; set the scale factors to anything for this case, but I set them to the 
lowest iacutllly,. 63 is one lower than the lowest i scale factor. 

move- *>63.ai .get lowest "scale factor value 

move al,x:(r0)* ,. 
move . al.x: (rO) * . 
move .' al,x:(rO)* 
■ 3 m P _9 ets _ 40 '- 

gets 05 '''■'■"".''.'■**." 

. tst. " a -- ■ .#>l.x0 ;SB C .fcr this sub -band . •-. 

; set xO to sbit code '01' 
:ne . . ' _gets_10 * •, : -. 

; sbit code '00' case where must get all 3 scale factors : . 
do -. ' #3,_gets_a ' ■-.'*;' : 

3sr getvalue ''■ ■ - ; ' ' v v" 

move. tt>MASKSKF,xl ,-mask for scale factor hi ord 

• and xl,a .-mask off high order one's 



move 

_gets_a 



al.x: trOi* . • ;save in SubBandSKFs C SubBand" i 

jmp _gets_40 ■ 
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_gets_2 



st; 



_gets_30 





- *C,a #>3.x0- 


jne 


_gets_20 . 


: code 


•01' case where must 


jsr 


gee value 


move 


#>MASKSKF,xl 


and . 


xl, a 


• ■ move 


• al.x: (rO) V 


move 


al,x:(rO)- 


jsr 


gee value 


move 


#>MASKSKF,xl 


ano 


xl , a 




. al t x: (rO) r . 


jmp 


_gets_4 0 ■ 


2: 
. cmp 


xO,a ' . #>2.x0 


2 ne 


gets_30 . 


code ' 


11' case where must 


jsr 


getvalue .'.'*. 


move 


*>MASKSK7,Xl 


ana 


■ xl, a 


move. 


al,x: (rG) * . .. 


t sr 


getvalue 


neve . 


:&>MASKSKF, xl 


and " 


xl . a 


. move 


al.x: (rO- 


move 


al.x:{r0) r 


jmp 


._gets_40 , 






cmp 


x0 , a . . 


.jne \ 


_gets_4 0 


code ■' 


10' case where must.'* 


jsr ' 


getvalue "" 


move 


-#>MASKSKF,xl , 


and 


xl.a 


" move . 


al,x: irO>* . 


move 


- ai/x: irO >~ 


move 


... al.x: (rO)-. 



;SB — 1 for t his sib". band 
; set xo zz sbit code 



get the second" two; scale .factors 



; get SubBandSKFs [SubBand] [i] 
rmask for scale factor hi ord 
; mask off high order one's ~ ' 
;save in SubBandSKFs [SubB a nd] r c] 
;save in SubBandSKFs CSubBand 1 
;get SubBandSKFs [SubBar.d] [2>* * * 
.-mask for scale factor hi ord 
;mask off high order one's 
;save in SubBandSKFs (SubBar.d] [2] 



;SB — 3 . for this sub-band 
; set xO to sbit code '10' 



;get SubBandSKFs [SubBand] f 0J 
mask for scale factor hi "ord 
;raask off high order one's 
;save in SubBandSKFs [SubBand] [C] 
;get SubBandSKFs [SubBand] [1] 
.mask for scale factor hi ord 
;mask of f .high order one's 
;save in SubBandSKFs [SubBand] 
/save in SubBandSKFs -SubBand] [2*- 



;SB 



*-' 2 tor this sub-band" 



;.get SubBandSKFs [SubBand] [C] 
;mask for scale factor hi ord 
;mask off high order one's 
;save in SubBandSKFs [SubBand 1 [c- 
;save in SubBandSKFs [SubBand] [lj 
;save in SubBandSKFs [SubBand] III 



a. 

b; 



3 scale factors indices 



;set up for the right channel: . 

backup the SKFs array for the left channel „ * ta , 
no c.fset for right channel sub-band scale factor index values" 
• iert channel from 0 to ( NTJMSUB BANDS * NPERGROU? .1) 
right channel from NUMSUBBANDS♦NPERGROOT- 
.•. , , ' • tp U2 ♦ NUMSXJBBAMDS • NPERGRO0P ) ' 
. r.- c sec for right channel sub-band SBIts values: 
l«»t channel from 0 to ( KUMSUB BANDS - 1-i " 
—Sfct. channel from NUMSUBBANDS to ( (2 ♦ NUKS0B3AND= - - 
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d. n2 offset for right channel sub-band bit allocation values: 
; left channel frcnTC to (NUMSUBBANDS 1> 

right channel from . NUMSUB BANDS to ! (2- *■ NUMSUBBANDS) - l) 

_gets_40 • V 

.-backup for the .3 scale, factors and while/ doing it test, for : • 
; a- zero, scale factor' ' . T ■ 

b. overload scale factor ■ 



move y:fade # yl ; 

do #NPERGROUP._gets_4 0_e. 

move x: - (rO) , a ■ . 

add yl,a #>63,y0 

.est \ a . #>OVERLOAD_SKF,XO 

jne- _9e^s 40 a-' 

bset ; . #SKF_ZERO,y:.<ctlflgs ■ : 

move " y0,a~ 

j m P _gets_4 0_d 



;get .current fade value. 



; apply, scale, factor -fade 

; & set maximum scale factor 



; 1/4/94 do not set .bit error 
,1/4/94 set scale factor to €3 



,• test for an overload, and if so. set. channel' led 

, ;NO overload, . test for max. 



_gets_4 0_a 

~ . .-. cmp 



x0,a 

_gets_4G_c 



.•overload sensed, set which channel led 



!dbg ; 



jset #LEFT_vs^RIGHT.y:<ctlf lgs._gets_40_b". 
on_left_over_led"dcd . 

nop 
nop 
nop . - 
nop • 
nop 



; ! : : dbg 

j^P _9 ets _ 40 _ c 

gets 40b. 
~. ON RIGHT OVER_LEE_DCD 

; i ! !dbg " : ; ~ ~- ■ 
. nop • 
nop- \ 
.nop • . 
' nop 
nop 

; ! ! !dbg 



; test for max SKF 



_gets_4 0_c 
~ ~ cmp , 
jle 
. move 

_gets_4 0_d 
" . " move 



y0,a 

_gets_40_d 
y0,a 



a,x: (rO) 



;test if greater 63 

;if less or eq, use current 

•;if so, .set to 63 . 



■; restore scale factor". 
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move 
*• move 
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. #LEFT vs RIGHT, y:<ctlflgs" 
#NUMSUB BANDS •NFERGROUP , n0 
#NUMSOTBANDS.nl 
#mJMSX7BBAKDS..n2 



,*after processing the right channel set up fo- 
;. next sub-band:, - • " 

; a., reincrement *rO for scale factor "array by 3 
; o. to., reposition the scale factor index array 
we put the negative of fset in nO • 
increment the SBits value array for the hex 
increment the bit allocation index array fo; 



■ c. 

d; 



.•indicate current channel 

: .tldt l** ZS offs€t -ight chan 
;SBits offset-right channel 
;bit alloc offset- right channel 

the left channel of the.-.. 

for the inserted 3 factors 
from, right back to left channel 

t sub-band' " . 
r. the next sub-band 



_gets_ec. 



move* " *3.n0 

move ■: (rl; ♦ 

move. (r2) * '■ 

move (rOl ♦nO-V 

move #-NDMSUBBANDS ♦NPERGROUP. nO. 



_gets_90 



SE7_LEDS_DCD 
rts 



; scale facts offset -right 



,-show overload conditions 



cnan 
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opt- • fc.mex 

; (ci 1991. Copyright Corporate Computer Systems; Inc. Ail rights reserved. 
; \UROCDSYN\getsws.asm 

• title ..'Get decoder external switch settings' 
; This routine is. used tointerpret the external switches on^the box ., 
"; on exit 

; .x:tstrate « raw bit rate input from the switches 

; .. x:tstsell » raw application of line 1'select switch • 

x:tstsel2. » raw application of line 2 select switch " 

x:tstfrmt • frame communication formatting 

x:tstreed • Reed /Solomon'- encoding switch'"" 

x : tstbaud - raw ancillary data baud rate input from the switches 
; y:<not_appl « bit 4 set if any switches changed . > 

; destroyed:. 

;■ v .register a - ■ * 



include' 'def .asm' 
include . ' bcx_ctl. asm' 

section highmisc 



xdef 
xdef 
xdef 



selectl -,- current 'setting of line 1 select switch 

select2 . .-current setting of line 2 select switch 

tstrate. tstseli, tstsel2 ,~tstf rmt , tstreed. tstbaud, tstmeth 



■ org 


xhe: 




stgetsws_xhe 






selectl . . 


ds 


• : 1 


select^ 


ds 


■ 1 


tstrate 


ds 


• 1 


tstseli 


ds 


: 1 


tstsel2 


ds 


"' 1 


tstfrmt 


.• ds . 


1 


tstreed 


■ ds':. 


1 


tstbaud 


• ds' 


1 


tstmeth 


ds 


1 



; current sett 



:mg cf line . 
.-current sett: 
;raw bit rate 
;raw application of 
; raw application of 
.-raw frame comminucatiqn formatting 
Reed/Solomon encoding switch 
;raw ancil data. baud rate input from switches 
; raw code for diagnostic vs normal operation 



.1 select switch 
ig of line 2 select switch- 
input from the switches 

line' 1 select switch 
Line 1 select switch 



endget sws_xhe 
endsec 



erg 



phe: 



aetsws 



bclr ' #4 '., y :<not_appl .-indicate no changes initially 



cir • • 
move . 
move 
move 
move 
. move 
move 



a, x: tstrate 
a. x: tstseli 
a, x: tstse!2 
a, x: tstfrmt 
a, x: tstreed 
a, x: tstbaud 
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move 



a, x: tstmeth 



;chec!c the dip switches to. determine frame bit rate .'- 
; • and .ancillary data application and data baud rate;. 

♦•switches for framing bit "rate ;■ 

■ GET_BIT_RATE_DCD ' •■ ' ' ■ ' : \V. 

.•switches for framing type code and mono . output ". . 

G2T_FRAME_TYPE_DCD - 
,-switches tc set. if selecting' line 1 and/or line 2 . ; 

GET_SELECTED_LINES_DCD . 
; switches fcr ancillary data baud" rate. 

.. . ; get_baud_rate_dcd' . ;•- 

.•switches .for method of . operation, normal audio or diagnostics. 
" GET DIAGNOSTICS DCD / 



move x:tstrate,yl ^ 

move y:rawrate,a 

cmp yl.a x : tstsellvyl 
. jne _gsws_80 . 

"move x:selectl,a 

cmp ...yl,a; . x:tstsel2, yl 

jne _gsws_8.0 

move. x: select 2, a . 

cmp - yl,a x:tstfrmt;yl 

jne _gsws_80 . 

move y : f rraf ormat , a 
. cmp . yl#a , x : tstreed,yl 
* jne _ gsws_80 

move y : reedsolomon, a 

cir.p yl,a x:tstbaud,yl 

jne . _gsws_80 

•move y:baudrte,a 
'cmp. ■. - yl,a. 

* j ne ' _gsws_80 

;see if we have to switch from normal* to the diagnostic method of operation* 



; look' for. a change in framing rate 
;set up to test line i selection 

;set up to test line -2 selection 

;set up to test framing format 

;set up to test' Reed/Solomon switch 

;set up to test ancillary " data* baud 



move 
tsf 
j.eq 



x: tstmeth, a 
a 

_gsws_90 



_gsws_30 



bset' #4,y:<not_appl. 



;get the diag nostic code 

;see if other than normal operation 

.•normal operation; continue 



; indicate changes in external switches 



_gsws_90 



rts. 
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opt . fc,raex' . 
(c) .1991. Copyright Corporate Computer Systems, Inc. All 
;\URDCDSYN\ get sync, asm: Ben's mux 

'/.title. 'Get Sync' ' ;'\ 

This routine, gets the sync word." - 
on exit \- 

. al » right justified sync value padded cn right with zeros 
r€ » updated 
'• y:sc * updated 

a2 * destroyed 

al » destroyed"". ,< - " 
be destroyed 
xQ. » destroyed.. 

xl « destroyed '•■ - - 

.... " yO • destroyed 
yl » destroyed- • 
. r4 - destroyed . 
n4 ■« destroyed 

include '.def.astn' * ■ T 
-; org ,phe: -\ 



getsync . 



move 

jsr 

move 
and 

rts 



#NSYNC,n4 

getvalue 

#>G£TSYNCMSK,xl 
xl.a. . 



.; number of bits 

;ge't sync right justified. 

; mask for sync word hi order 
;mask off any high order l's 
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opt 



(c)199:. Copyright Corporate . Computer Systems, Inc. All rights reserved. 
\URDCDSYN\getsystd.asm:- set led for MPEG-ISO vs -eld CDQ2000/CDC1000 ■ ■ 

-:' : title ; ?Get .Syst'." 
'this '-routxne* decodes'. the MUSICAK frame header information. . 



on exit 

x:f indidbit 
y:Ctlflgs » updated 



xrfndbit 



x: fndsmpl 
y:bitsf rm 
xrpadbit . 
y :privacybit 
y : f rmtype 
y : sibound 
yrmaxsubs . 
y : copyright 
y : original 
y : emphasis 
x:AllwAdd 
x:skftbl 



1-high sample rate; Onlow sample rate" 
(PROTECT bit: 0 -YES for checksum, 1-NO) 
(STEREO vs MONO bit: 0-stereo, 1-monoi 
(JOINT_?RAMING bit: 0-not. 1- joint). 
* ( SPLIT_KONO_ FRAME bit: 0-nc, 1-yes).. 
bit rate code 
sampling rate code ■* 
actual frame : length in bits 

0 -frame not. padded, 1 -frame padded w 8 added b 
privacy bit value in frame header 
stereo, joint stereo, dual mono or mono 
joint stereo intensity boundary subband count 
number of sub- bands encoded in BAL' s . 
copyright bit value in frame header 
original/home bit value . in frame . header. 
emphasis value, in frame header 
address. of the Allowed . table to use 
address of the BAL' s bit table to use-. 



.a 
b ■ 
xO 
xl 
y0 

;-yi-. 

rO 
rl 
r4 
n4 



destroyed 

destroyed 

destroyed , 

destroyed 

destroyed 

destroyed 

destroyed. 

destroyed 

destroyed 

destroyed. 



by get value call 



include 
include 

org 



•def.asm' 
'box_ctl\. asm' 

pbe : 



getsyst 

.•decode the bits 0 thru 3 of the frame header: 

■ bit description" ' . 
- . .. hiah cr low sampling rate: ' -. 

, , - n *9 n cr ^ hi gh rates 4B, 44.1 and 32 K sampling rates. 
. ;• : o - low rates 24, 22.05 and 16 K sampling rates 

• V 1-2 .'MCSICAM Layer: 
■ ; 11 ■ Layer I ■"" 

' "io -.Layer. II ..'.>■.''■," 

01 • Layer III - . 

CRC-1* checXsum frame header protection: 
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3sr 

move 

and 

bset 
move 

jclr- 
bclr 



-0 - cnecksura protection encoded after frame header 
1 • NO checksum protection *" . • 

#NSYSTHDR_1 , n4 ;get field #1 (bits 6-3 ir. hdr! 

; bit 0 indicates protection checksum; ■' 
' ; 0 • yes checksum included 

: 1 « no checksum included ■ 
;get data right justified 
;mask for getvalue of header field 1 - 
;mask off high order bits 
; & set len of bit rate-bits 4-7 in hdr" 
: default that CRC protection applies. 
_ ;see if CRC bit set indicating not appl : 

#0,y:<not_appl,_gsyst_00 ;hdr shows zero, CRC is. included 
n PROTECT , y : < ct iTlgs ~ ;set that CRC protection NOT applicable . 



getvalue 

#>MASKSYSTKDR l.xl 
■XI. a «NBITRATE.n4 

#PRCTECT,y:<ctiflgs : 
al.y :<not_appl 



: _gsyst_00 

; set the high or low sampling rate ID code 

'' : bset- #0 ,x: fndidbit ' . .-default, with highsampie rate bit on 

' jset- ■' #3 ,y :<not_appl,._gsyst_01 ;if set for high, continue 

bclr. #Q,x: fndidbit -. " ■ . rreset to low- sample rate. bit. on • 

_gsyst_Cl . -'. ' .■" . 

rdecode the bits 4 thru 7 of the frame header: bit rate. 



jsr getvalue . 

move . #>MASKNBITRATE,xl 

and, •. / xl.a " y:spltrte,xl 



;get bit rate code right justified 
.-mask for getvalue of frame bit rate 
;mask off high order bits 
; & get the 1/2 bit rate code 
;save header bit rate code 



.move al,x:fndbit . 
;test for CDS20CO split mode of transmission, and check for a split mono frame 



bclr 

Oclr 

move 
cmp 

jne : \ 



#S?I.IT_M0NC_FRAME, y : <ctlf Igs ; clear indication fcr split mono. 

fcSPLIT MODE, y : <ctlf lgs,_gsyst_05 ; test fcr. split, mode cf trans 

ai.a. ?clean up junk after getvalue- 

xl.a ;see if frame rate same as split rate 

gsyst 05 * ; if. not, we should have a full frame 



~;since we matched bit rates, this must be a 1/2 bit rate in mono 

bset'" ■ #SPLIT_M0N0_FTUWE,y:<ctlflgs Vindicate for ancillary data 
■ — gsyst^ 05 '. , 

• ;decode the bits 3 . and .9 of the frame header: sampling rate.' 



move . . 3NSAMPLERATE , n4 

^sr , * getvalue 

move #>MASKNSAMPLERATE,xl 

and xl.a &NSYSTKDR 2,n4 



. move - al.x:fndsmpl . ■ 
.-decode the bits 10 and 11 cf the ..frame header: 



?eat sampling- rate : 
.? get sampling rate-right justified . 
.•mask for getvalue cf data sampling rate. 
•;mask off high order bits. 

& set len field #2 (bits 10-11 in hdr: . 
•save the header sample rate • 
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bit description 

10 . padding bit : 

. - 0 » frame is not padded ■ 

l.» frame is padded with 8 bits 
II. .privacy bit 



;test the frame padded flag in header'..: (bit 10 J * and update . frame bit count 



. jsr getvalue 
move . ' #>MA!SKSYSTHDR_2, xl 

and- . xl, a. .. # >PAD_SLOT , xl 

move al , y : <not_appl 

move ' . y:frmbits,a 

bclr v#0 # x:padbit 

jclr #l,y :<not_appl, gsyst 

bset : . #0,x:padbit ^ * ' 

add • ■ .xl, a 



. .;get data right justified 

. . ; mask off high' order bits 

; & get the padded bits added to frame 
;see if frame padded bit set 
;get the unpadded frame bit count 
• ; default that the frame is not padded 
06. ;if hdr bit net set, no padded bits 
. . ; indicate- padded bits 
, ;add pad bits to frame bit count 



__gsyst_06 '" 

; set the frame length in bits (normal or padded with 8 bits) 
; set the frame, privacy bit in header, (bit 11) 

move a,y:bitsfrm ;store actual frame bit count 

...... bclr .*0,y:privacybit -.-default* the frame header privacy bit 

CLR_PRIVACY_BIT_DCD ; in decoder status . * 

jclr . #0 , y : <not_appl,_gsyst 08 
. bset . #0,y:privacybit~ . .?set the frame header privacy bit 
' SET_PRIVACY_BIT_DCD ; in decoder status: / ■ 

_gsyst_08 ; 

/decode the bits 12 and 13 of the frame header: frame type • 
; .00. » FULL STEREO (2 channels) , 
; 01 » JOINT STEREO \2. channels) 
; 10 - DUAL MONO (2 channels) 

; ■ '11 « MONO (l channel) 



move. : *N7RAMETYP£.n4 ;get frame type (bits 12-13 in hdr) 

jsr getvalue . ;get frame type right justified . . 

move . #>MASKFRAMETYPE,xl ;mask for getvalue of framing type 

and . . xl,a. #NSTINTENSITY. n4 .* ;mask off high order bits 

; & get' stereo intesity (bits 14-15) 
move : al,y :f rmtype • ;save. type of frame 

;set the default MAXSUBBANDS as for 2 channel frames 



move #oldccs,r0 
move y : maxsubs_.2 , yl 



;tp test if .old CCS .CDQ frames . 
;default to. 2 channel MAXSUBBANDS 



;. if. the old CCS flag is set to decode from old CCS CDQ' s, use mono MAXSUBBANDS 



jclr .#0,y: (rO) t _gsystJ)9 
• move ' y : maxsubs_l , y 1 

_gsyst_09 

;set the type cf; frame flag . 



;if MPEG- ISO, continue 
.•default to. MONO MAXSUBBANDS 



SUBSTITUTE SHEET (RULE 26) 



WO 96/32805 



PCT/US96/04835 



-193- 



■. nove . 
move 
cmp 
jne 
bclr 
bclr 
."• jmp 

_gsyst_l0 

cmp. 
, jne' 
. bclr 
. bset 
': • ' • ■ jmp 

. _gsyst_20 " 

' ■ cmp ■■ 
jne . 
" bclr 
. bclr 
V jwp 

_gsyst_30.. 

" bset 
. bclr : 



y : f rr.type, a 
#>FULL_STEREO.xi ' 
xl.a . «>J0INT_STER20.xl 
_gsyst_10 

ISTEREO vs MONO.'y : <ct If Igs 
# JO INT ^FRAMING . y : < ct 1 f Igs 
_gsyst~40 . 



xl. a #>DUAL.xi 
_gsyst_20 

# STEREO vs_MONO,y:<ctlflgs 
•#JOINT_FRAMING,y:<ctlf Igs . 
_gsyst~4 0 



. xl.a . ■'■■„ 
_gsyst_30 

ISTEREO_vs._MONO, y : <ctlf Igs 
*JOINT_FRAMIN3, y : <ctlf Igs " 
_gsyst~40 



# STEREO vs_MONO, y : <ctlf Igs 
#JOINT_FRAMING,y:<ctlflgs : 



; get. the frame type 



/indicate stereo samples 
;clear joint stereo indicator 



. ; indicate stereo samples 
.; indicate stereo samples 



;dual channel is same as' seer 

; indicate stereo samples ' 

; clear joint stereo indicator 



; indicate mono samples 

; clear joint stereo indicator 



;set the MAXSUBBANDS for MONO channel frames 



move . y:maxsubs_l,yl . ;ge t to MONO MAXSUBBANDS 

;if . SFLIT^MONO^FRAME^ use split frame mono MAXSUBBANDS 



jelr 
move 



#SPLIT_MONO_FRAME f y : <ctlf lgs.,_gsyst 4 0 . 

y:spltmaxsubs,yl . \ ; get to split MONO MAXSUBBANDS 



_gsyst_40 



;set the number of sub-bands encoded in the BAL's 



move y l , y : < maxsubs 



;set the working MAXSUBBANDS for frame 



light led to indicate MPEG-ISO compatible frames 

.'•or old CCS CDQ2000/CDQ10C0 non- conforming frames at low bit rates 



move 

nop " 

jelr 

ON_MPEG. 
• j set . 

jset . 

move" . 

move 

move 

move . 
• cmp 

jeq. • 
cmp 



#oldccs.r0 ; to test if .old CCS CDQ frames. 

#0,y: (r0).,_iso_led. . . ,;if. ISO. set led as 'ISO 
_ISO_vs_CCS_LED~DCD .-indicate old ccs frames " ' 

#l,y:.(r0) ,_do_leds ;if CDQ1000, set led as CCS 

#STEREO_vs_MONO,y:<ctlf lgs,_iso led ;if MONO, ISO led 
#>SAM48K,xO . • ;test for 48 K sampling 

#>SAM32K,xl ' . ;test for 32 K sampling 

#>BITRATE_56,yO ' \> low bit rate code 56 K 

y:smplrte,a. ;to test sample rate code ■ 

xO,a . #>BITRATE_96,yi ; see if 48. K sampling 

. T . ; t. set hi bit rate 96- K @ 48.- 
_tst bit '.*.:■'- ;• .-if 48, test bit rate range 
xl.a" #>BITRA7E_160,yl ..-see if 32 K sampling- ' 

. & set hi bit rate 96 K 3 32 . 
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jne 



est bit 



move 
cmp 
jit 
cmp 



Lso led 



yrbitrate.a 
yO , a 
iso_led 

do leds 



iso led 



OFF MPEG ISO vs CCS LED DCD 



:if not 32. set ISO led 



; check bit rate in the range 
;test vs lowest ISO high code 
;if less, ISO led 
;test vs highest ISO high code 
;if "less or equal , leave CCS led 



; indicate iso compatible frames 



do leds 



SET_LEDS_DCD : 

; decode the bits 14 and 15 of the frame header: , ■ 

mode extentioh (joint . stereo intensity boundary). 

00 « stereo for sub-bands 0 thru 3. Joint • for sub-bands 4 and up 

01 « stereo for sub-bands 0 thru 7,-. joint for sub-bands 8 and : up 
; 10 » stereo for sub-bands 0 thru 11 joint for sub-bands 12 and up 

11 » stereo for sub -bands 0 thru IS, joint, for sub-bands 16 and up 



3sr 
• . . move . 
and' 

jelr 

. . move 
move 
cmp • 

3 e< 3 

- cmp 
jne 
move 

' '. . jroP 

_gsyst_80 

cmp 
. jne 
move 

_gsyst_90 

move 



getvalue . 
#>MASKSTINTENSITY/xl 
xl, a #BOUND 4 , rO 



.; get data right justified 
;mask for getvalue of intensity bound 
.-mask off high order. bits 
; & set up for. joint just in case 
#JOINT_FRAMING,y:<ctlf lgs , _gsyst_90 ; intensity is meaningless- 



al, a ■' ' - 

# > INTENS ITY_4 ; b 

a,b . #> INTENS ITY_8,b 

_gsyst_90 ■ . . 



; clear off any junk. - 

;get code for channels 4-31 intensity. 



a,b. 



#> INTENSITY 12, b ; 



gsyst 80 
?BOUND~8,rO 
_ gsyst _90 



a,b • #BOUND_16,r0 
_gsyst_90 7 ' : . 
# BOUND 12, rO, .. 



r not joint, intensity is meaningless 



not joint, . intensity is meaningless" 



rO , y :sibound. . . ;save intensity stereo sub band bound 

/decode the bits 16 thru 19 of the frame header: . . . , ; 

; -■ bit description :\ \ 

.16 copyright bit: - 
; 0 - no copyright 

1 - protected by copyright 
; 17- original/home bit: 

. 0 * bitstream is a copy 
; 1 - bitstream is an original 

; 18-19 emphasis: . ■ 

; 00 ■ no emphasis •'. ' . * . • 

01 » SO/15 microsec. emphasis ■ • 
.10 a 'reserved • 
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' •'• . \ ■ -195- -, 

.11 » CCITT J. 17 emphasis- 

move - #NSYSTHDR_3 , n4 . ; gec field #3 (bits 16.-19) • 

jsr getvalue . > ; get .data right justified ., 

-■.move-..' #>MASKSYSTHDR_3, xl ; to ' : mask" off unwanted bits 

' and \ xl,a - ■ • /mask off the unwanted bits 

. ' move . al,y:<not_appl : ' ■ . ;move to addr to ;be tested 

clr , ' a.. - . ;to restore y:<not_appl as all 0's 

.set the copyright bit, original /home' bit and emphasis" code from header 

bclr . #0,y: copyright /default bit as not. set ". 

CLR_COPYRIGHT_BIT_DCD ; in. decoder status ' 

}clr #3,y:7not~appl,_gsyst_91 ; if bit 16 not set; -continue 

bset #0,y: copyright; ?set the copyright bit . 

• SET_CCPYR I GHT_B I T_DCD ' ; in decoder status * 

_gsyst_9l 

~ . " bclr 30,y: original /default bit "as not" set - 

CLR_ORIGINAL_BIT_DCD . ;in decoder status 

jclr #2,y:<not_appl,_gsyst_92 " ; if bit 17 not set,, continue 

bset : MO, y:original \ ;S et the original/home bit 

SET_ORIGINAL_BIT_DCD . ; in decoder status 

• _gsyst_92 

move a r y -.emphasis ; ;zerb the emphasis code 

CLR_EMPHASIS_BIT_0_DCD. : ., ; in decoder status ' • 

. CLR~EMPHASIS~BIT3l_DCD ;in decoder .status 

':■ ' jclr #l,y7<not_appl,_gsyst_93 ;if bit 18 not set, try bit 19 

bset #l.y:emphasis . ;set bit 1 of emphasis code . 

- SET_EMPHASIS_BIT_1_DCD . ;in decoder status 

_gsyst_93 - 

. -' ~ jclr #0,y :<hot_appl,_gsyst_94 ; if bit 19 not set, finish up 

.bset. #0,y:emphasis ~ " /set bit 0 of emphasis code 
SET_EMPHASIS_BIT_0_DCD . * ' ; in decoder status 

_gsyst_94 / J-" '- 

./restore y.:<not_appl to all zeros ' 

move a,y :<not_appl /reset the dummy variable 

/Set the proper Allowed table and BAL's bit table addresses: 
./test for- low sampling rate Allowed table 

. move' . #smplidbit , rO . ;addr of frame header ID bit (0 * low) 

.'nop " ' ' ' : . • " 

jset . #0,y : (rO) ,_gsyst_95 ;if high rate,. select Allowed table 

move . #Allowed_3 , rO addr -of low sampling allowed table 

move . *skftbl_3,rl ;addr of low sampling BAL's bit table 

jmp • _gsyst_100 . . ;go to store Allowed table address 

_gsyst_95 

/Set the proper Allowed table address based on working MAXSUBBANDS (y:<maxubsi 
;.- if less, than 27, used table 2 ..;.-' 
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move" . y : <maxsubs , xC " ' ;get current MAXSUBBANDS ■ 

■move . #>27,a ■ - ;to see. which of 2 tables applies * * 

• V move . " *skftbl_l.rl ;addr of high sampling BAL's bit table 

crop . x0,a .~#Allowed_l, rD ;see if need the low bit rate table 

.." " "■ ; & set up as regular Allowed table ■ 

. jle _gsyst_10b ; regular Allowed table applies • 

; select the lower bit rate ! Allowed , table . . 
move ' «Allowed_2, rO 

move . tskf tbl_2,.rl ;addr of high! sampling. BAL' s bit table 

_gsyst_10O 

; set. the -address : of . the selected. Allowed table 
rset the address- of the selected BAL'e bit table 

move r9 , x:AllwAdd 

move ' . ' rl,x:skftbl " . - 

: rts " ". • • - ' '.. 
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; •. -. : . : -197. . 7 ... 

opt'- . fc ' ■ ' -- 

; (c) 1991. Copyright Corporate Computer Systems. Inc. All rights reserved. 
; \URDCDSTO\synth.asm 

title 'Synthesize a group of sample and output" audio* . 

;synth.asm: this -is the main of the. poly synthesis routine 
;. it handles a new group of samples to be decoded and inverse quantized 
for stereo a group of. samples contains 192 samples (96 left & 96 . right) 
if mono a group of samples contains 96 samples only ' * • ; 



include 
include 



'def .asm*, 
'box cel. asm* 



: xdef . 

org".; 
stsyrith_yhe 

dual chan 
synthNSSave 



;endsynth_ yhe •.. 

' endsec 



section highmisc 
xdef. dual chan 

synthN6Save 



yhe: 



ds 

ds' 



1 

■ i. : • 



; control for channel swap ctls 
: instead of ssh 

;bit 0 « 1 means copy left to right 
1 means copy right to left 
1 means swap left 4 right 
1 means mute both left & right 



;bit 1 
;bit 2 
;bit 3 



syhth 



org 



move 
move 



phe : 



#dualchan,rO 
#ASMData.rl 



;set addr of two chan ctls 
/position to left channel 



.see i: 



:he frame is to be muted 
j clr #MUTE_LErc_and_RIGHT . y : t r 0 ) . _synt_00 
;set the number of words in both channels for the MUTE do loop 



move #NUMSUBBANDS*NFERGROUP*2 vnO 
move- #0. nl; 
jmp _synt_20 



,*2 channels' numb : words to mute 
/hold position -at left channel 
; go to the mute loop 



_synt_00 

?if a stereo frame, checkout for special mute or swaps r 
- \jclr • #STEREO_vs_MONO,y:<ctlf lgs,_synt_40 



move •*.. #NUMSXJBBANDS ♦ NPERGROUP.nl: 
move ' rl , rO 
raoye • lrl>+nl 



.-spacing to right channel 
'.'position to left channel 
,addr of right channel 



rcopy' the left ir.tc right 
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-.do #NUMSUBaANDS*NPSRGROUF; synt 05' 

. 'P u ^,J-«-C vai.ue.ir.to right 

_synt^os : - - * .; ' •■■ , 

• ;if we.do not have to mute a channel (mono 'to. both) / " 
..; skip ahead, tc restore registers used . ' " 

/ jsec *M0NO.OUT L BOTH,y:<ctiflgs^ S ynt.90 ;out to both, go restore regs 
; set the number of words in one channel for the mute do loop 

. move <»NUMSt7BBJUros*NPERGR0UP, ho ' " ' ; ;1 channel numb wbrds : to mute 
; set up to mute the channel not selected . for mono 1 output. 

move ' •■' #ASMData.rl ■' .-j.^.:.. _ , , ' . •_■ 

move #0 m .^position; tc left channel 

move , *Q.,nl .-start at left channel 

; if not the left channel for output, continue 

else, .position tc the right channel, for muting 

; jset. #M0N0 OUT CHANNEL , y : < ct 1 f lgs , synt 20 =' -if riant 2ero ^ft 
; - . move JtNUMSUB BANDS *NPERGROUP, nl * . " ^else. «S, t^rlgSrctaSl ' 
_synt_20 ' 

;mute the proper channel fs)- 



move 
move ' 


- #0,x0 
• CrlWnl 


;." ; to -imite the- channel . 
. ;addr of channel to mute 


- do ■ 
move 


no , synt 3 0-. 
. xCx: (rlT* . . 


;';zero value V in -chosen channel 


_synt_30 


_synt_90 


; do the polysynthesis ' * 


.synt_40 







;see if the two channel frame requires. any swapping- 
; .. swap left and right 

left- into right . '■ -O 

;•■ . right into left' ' - • .-*.. 

.jclr;' • #SWAP_LEFT_and - RIGHT # y- (rO) ';_synt_50 ; 
;mp the lef: and right channels . -*'. ..»■■"' 

- . .move #NUMSUBBANI>S*NPERCROUP # nl ' ^spacing to right channel 
™Z* ' T 1 ;? 0 ' . ;positicn to left channel". 

* move ■• ; (ri;+ni • . . . ;addr cf right' channel • 

; copy the left. into right ''■..-.*/'-...< "/'■'■]■■ -"r," [ " 

do . • . #NUMSUBBANDS»NPSRGR6UP,. synt 45 '■ v - 
■ - move x: <r0> ,xQ : • ~ • . ;ge t left 'channel value 

: move. x:/rl> ,xl - v ;get right * channel value ' 
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move xO.x: < r 1 > * *■ . ■ . ; put left value into right 

move xl,x;(rC;* . "*' r put right value into left 

_synt_4 5 . . 

J 1 "? _synt_8G • ' . .;go see if any channel mutes ." 

_synt_50 ' - •'. 

; see if a copy the left into the right 

jclr #C0?Y_L£FT_tcJlIGH7,y: (r0> ,_synt_6C ;if not copy left to right 

;copy the left channel,' into .the right channel;,. 

move . - fcNUMSUBBANDSTNPERGRCUP, nl . ; spacing to right channel, 

move ri,rO - ; posit ion to left channel 

.move , (rl)+nl ;addr of right channel. . 

jmp. . _synt_*7 0 ; ;do the copy 

' _synt_6 Q * - 

;see if a copy the. right into ' the left • 

jclr ff COPY_R I GHT_t c_LEFT , y : { r 0 5 _synt_8 0 ;if not copy right to left 

;copy the right channel into the left channel. 

move KNUMSDBBANpS*NPERGROUP, nO . /spacing to right channel 

move rl,r0 . . .-position to lef t channel . . 

nop 

move (r0)+n0 . * ;addr cf right channel 

. _synt_7C - ;/. 

;copy the one channel into the other . . 

dc . #NUMSUBBANDS*N?ERGROOT ( _synt_BC 

move x:tr0)*,x0 T ;get source channel value 

move xO,x:lrl)* 1 ; put. source value into des'tin 

;see if either channel. is to be; muted \" 

jmp-* ;_synt_05 
.._synt_9G. • ' ■; "■ ' ; " * : -. 

;pass both' channels to the* poly synthesis routine- 



;save . 

;set to be a mod 1Q24> buffer 

;set to.be a mod: 1024* buffer 

?set scale factor 



move 


#ASMData.rO 


move " 


n€ ,y :synthN6Save 


move 


.' #1023,m2 


move . 


m2 , m3 


move ' 


' #32, no 


jsr ;;■ 


polysynt / 


move 


y:synthK6Save f n€ 



'; restore n6 
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res 



-200- 



move 
move , 
move, 
move 



-y: linear , ml 
mlTmJ . 
ml , m3 
ml.mS ■- . 



.restore to linear addressing 

/restore to linear addressing 

,-restore to linear addressing 

.•restore to linear . addressing 
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CLAIMS " 
What is claimed is: ... 

1. An audio transmission system comprising: 

a coder for coding an input audio signal into 
5 . a digital signal to be transmitted through a 

traditional analog telephone network, the digital 
signal having a transmission rate of 28.8 kilobits 
/per second or less; and • 

a decoder for decoding the digital signal that 
10 is received form the telephone network to provide 

: an output: audio signal with a frequency range 
greater than 4 kilohertz. 
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